This Page Is Inserted by IFW Operations 
and is not a part of the Official Record 


BEST AVAILABLE IMAGES 


Defective images within this document are accurate representations of 
the original documents submitted by the applicant. 

Defects in the images may include (but are not limited to) : 


• BLACK BORDERS 

• TEXT CUT OFF AT TOP, BOTTOM OR SIDES 

• FADED TEXT 

• ILLEGIBLE TEXT 

• SKEWED/SLANTED IMAGES 

• COLORED PHOTOS 

• BLACK OR VERY BLACK AND WHITE DARK PHOTOS 
. GRAY SCALE DOCUMENTS 


IMAGES ARE BEST AVAILABLE COPY. 

As rescanning documents will not correct images, 
please do not report the images to the 
Image Problem Mailbox. 
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< VIDEO > Path { return(PATH); } 

< VIDEO > Files { rerum(FlLES) ; } 

< VIDEO > Transform { return(TRANSFORM); } 

< VIDEO > None { return(TRANSFORM_NONE) ; } 

< VIDEO > Wavelet { return(TRANSFORM_W A VE) ; } 

< VIDEO Start { return(START); } 

< VIDEO > End { retum(END); } 

< VIDEO > Length { return(LEN); } 

< VIDEO > Dimensions { retum(DIM); } 

< VIDEO > Header { return(HEADER); } 

< VIDEO > Offsets { return(OFFSETS); } 


< VIDEO > Size 

{ return(SIZE); } 

< VIDEO > Precision 

{ rerurn(PRECISION); } 

< VIDEO Yes 

{ vylval.bool=True; return(BOOLEAN); } 

< VIDEO No 

{ yylval.bool=False; return(BOOLEAN); } 

< BATCH > Load 

{ return(LOAD); } 

< BATCH > Save 

{ return(SAVE); } 

< BATCH > SaveAbekus 

{ return(SAVE_ABEKUS); } 

< BATCH > Compare 

{ rerura(COMPARE); } 

< BATCH > Drop 

{ return(DROP); } 

< BATCH > ImportKLICS 

{ reaim(IMPORT_KUCS); } 

< BATCH > Transform 

{ BEGIN BATCH_TRANS; return(TRANSFORM); } 

< BATCH > Compress 

{ BEGIN BATCH_COMP; rcrarn(COMPRESS) 

< BATCH >Xwave 

{ return(XWAVE); } 

< BATCH > Shell 

{ retum(SHELL); } 

< BATCH > Copy 

{ return(COPY); } 

< BATCH > Direct 

{ rerurn(DIRECT_COPY); } 

< BATCH >Diff 

{ return(DIFF); } 

< BATCH >LPFzero 

{ return(LPF_WIPE); } 

< BATCH >LPFonly 

{ return(LPF_ONLY); } 

< BATCH > RGB- YUV 

{ rerurn(RGB_YUV); } 
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< BATCH > Gamma { rcturn(GAMMA); } 


< BATCH_COMP > VideoName 
<BATCH_COMP> Slats 

< BATCH_COMP > Binary 
<BATCH_COMP>Yes 
<BATCH_COMP>No 

< BATCH_COMP > Still 

< BATCH_COMP > Video 

< BATCH_COMP > AutoQuant 

< BATCH_COMP > QuantConst 

< BATCH_COMP > ThrcshConst 

< BATCH_COMP > BaseFactor 

< BATCH_COMP > DiagFactor 

< BATCH_COMP > ChromeFactor 

< BATCH_COMP > Decision 

< BATCH_COMP > Feedback 

< BATCHCOMP > Maximum 

< BATCH_COMP > SigmaAbs 

< BATCH_COMP > SigmaSqr 

< BATCH_COMP > Filter 

< BATCH_COMP > None 
<BATCHCOMP>Exp 

< BATCH_COMP > CmpConst 

< BATCH_COMP > FrameRate 

< BATCH_COMP > Bitratc 

< BATCH_COMP > Buffer 
<BATCH_COMP>\{ 
<BATCH_COMP>\) 
remm(R]GHT_BRACE) ; } 


return( VIDEO_N AME) ; } 

return(STATS_NAME); } 

return(BIN_NAME); } 

{ yylvai.bool=True; rerurn(BOOLEAN); } 
{ yylval.bool= False; retum(BOOLEAN); } 

return(STILL_MODE); } 

return(VIDEO_MODE); } 

return(AUTO_Q); } 

retum(QUANT_CONST); } 

return(THRESH_CONST); } 

rcturn(BASE_FACTOR); } 

return(DIAG_FACTOR); } 

retura(CHROME_FACTOR); } 

retura(DEaSION); } 
return (FEEDBACK); } 

{ return(DEC_MAX); } 
return(DEC_SIG ABS) ; } 
rctum(DEC_SIGSQR); } 
renirnCFILTER); } 
retum(FLT_NONE); } 

{ rcturn(FLT_EXP); } 
[ retum(CMP_CONST); } 
[ return(FPS); } 
[ rcturn(BITRATE); } 
[ return(BUFFER); } 

{ return(LEFT_BRACE); } 

{ END; BEGIN BATCH; 


< BATCH TRANS > VideoName { return(VTDEO_NAME); } 
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< BATCH_TRANS > Direction { rcturn(DIRECTlON); } 
<BATCH_TRANS> Space { retum(SPACE); } 

< BATCH_TRANS > Precision { retum(PRECISION); } 

< BATCHTRANS > Yes 

< BATCHTRANS > No 

< BATCH_TRANS > \{ 

< BATCH_TRANS > \} 


{ yylval.bool=Tnie; retum(BOOLEAN); } 

{ yylval.bool=False; return(BOOLEAN); } 
{ retura(LEFT_BRACE); } 
{ END; BEGIN BATCH; return(RIGHT_BRACE) ; } 


[. \t\nj { ; } 

%% 

yywrapQ { rcnini(l); } 
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source/Transfonn.h 


typedef struct { 
Video src; 

char namc[STRLENl, src_name[STRLEN]; 
int space[2], precision; 
Boolean dim; 
} TransCtrlRec, *TransCtrl; 
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source/Video.b 


typedef struct { 

char names[4] [STRLEN] ; 
} AbekusCtrlRec, *AbekusCtrl; 
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source/makefile 


8 Xwave Makefile 
ft 

CFLAGS = -O -I.. /include 

LIBS = -lXaw -IXmu -IXt -lXext -1X11 -lm -U -L/usr/openwin/lib 

KEEPSTATE: 
.SUFFIXES: x .o 

xwaveSRC = Select.c Convert.c xwave.c InitMain.c Pop2.c Video2.c Malloc.c 
InitFrame.c \ 

Frame.c Transform.c Convolve3.c Update.c Image.c Mcnu.c 

PullRightMcnu.c \ 

NamcButton.c SmeBSBpr.c Process.c Lex.c Gram.c Parse.c Color.c \ 
Biis.c Storage. c Cqpy.c Message.c Palette.c IroportKlics.c IconS.c Klics5.c 

\ 

KlicsSA.c KlicsTestSA.c ImportKlicsSA.c ImpKlicsTestSA.c 
objDIR = ../$(ARCH) 

xwaveOBJ = $(xwaveSRC:%.c=$(objDIR)/%.o) 

$(objDIR)/xwave: S(xwaveOBJ) 

gcc -o $@ $(xwaveOBJ) $(LIBS) $(CFLAGS) 
echo ••••••••••••••••••••• 

$(xwaveOBJ): $$(@F:.o«.c) ../include/xwave.h 
gcc -c $(@F: .o= .c) $(CFLAGS) -o %@ 

Lex.c: Gram.c Lex.l 
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lex Lex.l 

mv lex.yy.c Lex.c 

Gram.c: Gram.y 

bison -dlt Gram.y 

irv $(@F: .c = .tab.h) . ./include/Gram.h 
mv $(@F:.c = . tab. c) Gram.c 
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include/Bits. h 


#ifndef _Bits_h 
^define _Bits_h 

typedef struct { 

unsigned char buf; 

int bufsize; 

FILE *fp; 
} BitsRec, *Bits; 

#endif 
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include/DTheader.h 


rypedef struct DTheader { 

char file_id[8]; /♦ "DT-1MAGE" */ 

char structjd; ' /* 1 */ 

char prod_id; I* 4*1 

char util_id; /* 1 */ 

char board_id; 1*2*1 

char create_time[9]; /* [0-l]year, [2]rnonth, [3]dayoftnonth, [4]dayofweek, 
[5]hour, [6]min. [7]scc, [8]scc/100 */ 

char mod_iime[9]; /* as crcatc_timc */' 

char datum; /* 1 */ 

char datasize[4]; /* 1024?? */ 

char file_struct; /* 1 */ 

char datatype; /* 1 */ 

char compress; /* 0 */ 

char store; /* 1 */ 

char aspect[2]; /* 4, 3 *'/- 

char bpp; /* 8 */ 

char spatial; /* 1 */ 

char width[2]; /• 512 */ 

char height[2]; /* 512 */ 

char full_width[2]; /* 512 */ 

char fuUbeight[2]; /• 512 */ 

char unused 1 [45]; 

char commentf 160]; 

char unused2(256]; 
} DTheader; 
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include/Icon.h 


typedef enum { 

FWJabcl. FWjcon, FW_command, FWjext, FW_button, FWJconbution, 
FW_view, FW_toggle t 

FWjn, 

FWjip, FW_down, FW_inieger, 
FW_scroll, FW_float, 
FWJonn, 
} FormWidgetTypc; 

typedef enum { 

SW_below, SW_over, SWjop, SWmenu, 
} ShellWidgetType; 

typedef struct { 
String name; 
String contents; 

int foomHoriz, from Vert; 

FormWidgetType type; 
String hook; 
} Fonnltem; 
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include/Iraage.h 


* SXConsortium: Image.h.v 1.24 89/07/21 01:48:51 kit Exp $ 
*/ 

Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, 
and the Massachusetts Institute of Technology, Cambridge, Massachusetts. 


All Rights Reserved 


Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that 
both that copyright notice and this permission notice appear in 
supporting documentation, and that the names of Digital or MTT not be 
used in advertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS, 

WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER 
TORTIOUS ACTION, 
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ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 

*»„.»,.*...».*.*.»»*.*«»******»*********-*■ ***"■*******••***•**••■*/ 

tfifndef Xawlmageji 
^define _XawImage_h 


j******************************************* 


**************************** 


* Image Widget 
* 


^include <X11/Xaw/Simple.h> 
^include <Xll/Xmu/Convencrs.h> 

/* Resources: 


Name 


Class 


RepType 


Default Value 


border BorderColor Pixel XtDefaultForeground 

borderWidth BorderWidth Dimension 1 
cursor Cursor Cursor None 

destroyCallback Callback XtCallbackList NULL 

insensitiveBorder Insensitive Pixmap Gray 
mappedWhenManaged MappedWhenManaged Boolean 
sensitive Sensitive Boolean True 

bitmap Bitmap Pixmap NULL 
callback Callback XtCallbackList NULL 
x Position Position 0 


True 
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y Position Position 0 

*/ 

> 

#dcfuic XLNbitraap "bitmap" 

r 

#defuie XtCBitraap "Bitmap" 

/* Class record constants */ 

extern WidgetClass imageWidgetClass; 

typedef struct JmageClassRcc "Image WidgetClass; 
typedef struct _ImageRec *Image Widget; 

#endif /* _XawImageJi */ 

/* DONT ADD STUFF AFTER THIS #endif */ 


) 
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include/ImageHeader.h 


/* Author: Philip R. Thompson 

* Address: phils<g»athcna. mit.edu, 9-526 

* Note: size of header should be 1024 (IK) bytes. 

* SHeader: ImageHeader.h.v 1.2 89/02/13 09:01:36 phils Locked $ 
SDate: 89/02/13 09:01:36 $ 
SSource: /mit/phils/utils/RCS/lmageHeader.h,v $ 


tfdefine IMAGE_VERSION 3 

typedef struct ImageHeader { 

char file_version[8]; /* header version */ 

char headcr_size[8]; /* Size of file header in bytes •/ 

char image_width(8]; /* Width of the raster image */ 

char image Jieight[8]; /* Height of the raster imgage */ 

char num_colors[8]; /* Actual number of entries in c_map */ 

char num_channels[8]; /* 0 or 1 = pixmap, 3 = RG&B buffers */ 

char num_picrures[8]; /* Number of pictures in file */ 

char alpha_channel[4]; /* Alpha channel flag */ 

char runlength[4]; /* Runlength encoded flag */ 

char author[48]; /* Name of who made it */ 

char date[32]; /* Date and time image was made */ 

char program[16]; /* Program that created this file */ 

char comment[961; /* other viewing info, for this image */ 

unsigned char c_map[256][3]; /* RGB values of the pixmap indices */ 

} ImageHeader; 


/* Note: 

* - All data is in char's in order to maintain easily portability 
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across machines and some human readibiliry. 
' - Images may be stored as pixmaps or in seperate channels, such as 
1 red, green, blue data. 

■ - An optional alpha channel is seperate and is found after every 

num_channels of data. 
[ - Pixmaps, red, green, blue, alpha and other channel data are stored 

■ sequentially after the header. 

1 - If num_channels ~ 1 or 0, a pixmap is assumed and up to numcolors 
1 of colormap in the header are used. 

7 

*** end ImageHeader.h 
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include/lraageP.h 


/* 

* SXConsonium: ImageP.h,v 1.24 89/06/08 18:05:01 swick Exp $ 
*/ 


/ ♦************#**•********»******************************** ,,, 

Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, 
and the Massachusetts Institute of Technology, Cambridge, Massachusetts. 

All Rights Reserved 

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that 
both that copyright notice and this permission notice appear in 
supporting documentation, and that the names of Digital or MIT not be 
used in advertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS, 

WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER 
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TORTIOUS ACTION, 

ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 
/* 

* ImageP.h - Private definitions for Image widget 
* 

*/ 

#ifndef JCawImageP^h 
^define _XawImageP_h 

* 

* Image Widget Private Data 
**************«*»******^^ 

^include M . ./include/Image. h" 
^include < XI 1/Xaw/SimpleP.h > 

/* New fields for the Image widget class record */ 

typedef stmct {int foo;} ImageClassPan; 

/* Full class record declaration */ 
typedef struct JmageClassRec { 

CoreClassPart core_class; 

SimpleClassPart simpleclass; 
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ImageClassPart image_class; 
} ImageClassRec; 

exiem ImageClassRec imageClassRec; * 

/* New fields for the Image widget record */ 
typedef struct { 
/* resources */ 

Pixmap pixmap; 

XtCallbackList callbacks; 

/* private state */ 

Dimension mapwidth, map_height; 
} ImagePart; 

* Full instance record declaration 

** *** ************* ****** ♦**********^********************/ 

typedef struct _ImageRcc { 

CorePart core; 

SimplePan simple; 

ImagePart image; 
} ImageRec; 

#endif /* _XawImageP_h */ 
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include/Message. h 


typcdef struct { 

Widget shell, widget; /■* shell and text widgets (NULL if not created •/ 

XawTextBlock info; /* Display text */ 

int size, rows, cols; ■/* Size of buffer (info.ptr) & dimensions of display */ 

XawTextEditType edit; /+ edit type */ 

Boolean ownjext; /* text is owned by message? */ 

} MessageRec, *Message; 
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include/Palette.h 


^define PaJenePath V 

^define PaletteExt ".pal" 

typedef struct _MapRec { 
int start, finish, m, c; 
struct MapRec *next; 

} MapRec, *Map; 

typedef struct JPaletteRec { 
char name[STRLEN]; 
Map mappings; 
struct _PaletteRec *next; 

} PaletteRec, *Palette; 
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include/PullRightMenu.h 


/* 

* SXConsonium: PullRightMenu.h,v 1.17 89/12/11 15:01:55 kit Exp $ 
* 

* Copyright 1989 Massachusetts Institute of Technology 
* 

* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright notice appear in all copies and that both that 

* copyright notice and this permission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* written prior permission. M.I.T. makes no representations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 
* 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

* BE LIABLE FOR ANY SPECIAL. INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

* OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 

* 
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* PullRighiMenu.h - Public Header file for PullRightMenu widget. 
* 

* This is the public header file for the Athena PullRightMenu widget. 
» It is intended to provide one pane pulldown and popup menus within 

* the framework of the X Toolkit. As the name implies it is a first and 

* by no means complete implementation of menu code. It does not attempt to 

* fill the needs of all applications, but does allow a resource oriented 

* interface to menus. 
* 

*/ 

#ifndef _PullRightMenu_h 
^define _PullRigbtMenu_h 

^include <XU/Shell.h> 

^include <Xll/Xmu/Converters.h> 

* 

* PullRightMenu widget 
* 


/* PullRightMenu Resources: 

Name Class RepType Default Value 


background Background Pixel XtDefaultBackground 

backgroundPixmap BackgroundPixmap Pixmap None 
borderColor BorderColor Pixel XtDefaultForeground 

borderPixmap BorderPixmap Pixmap None 
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bordcrWidih 
bonomMargin 
columnWidth 
cursor 

desiroyCallback 

height 

label 

labelClass 


BorderWidth Dimension 1 

VenicalMargins Dimension VerticalSpace 
ColumnWidth Dimension Width of widest text 
Cursor Cursor None 

Callback Pointer NULL 

Height Dimension 0 

Label String NULL (No label) 

LabelClass Pointer smeBSBObjectClass 


sensitive 
topMargin 
width 
button 
x 

y 


True 
VerticalSpace 


mappedWhenManaged MappedWhenManaged Boolean True 
rowHeight RowHeight Dimension Height of Font 

Sensitive Boolean 

VenicalMargins Dimension 
Width Dimension 0 

Widget Widget NULL 
Position Position 0 

Position Position 0 


typedef struct PullRightMenuClassRec* PullRightMenuWidgetClass; 
typedef struct PullRightMenuRec* PullRightMenuWidget; 


extern WidgetClass pullRightMenuWidgetClass; 

#define XtNcursor "cursor" 
^define XtNbottomMargin "bonomMargin" 
#define XtNcolumnWidth "columnWidth" 
■^define XtNlabelClass "labelClass" 
#define XtNmenuOnScreen "mcnuOnScreen" 
#define XtNpopupOnEntry "popupOnEntry" 
#define XtNrowHeight "rowHeight" 
#define XtNtopMargin "topMargin" 
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#definc XtNbutton "button" 

#define XtCColumnWidth "ColumnWidth" 
#define XtCLabelClass "LabelClass" 
#define XtCMenuOnScreen "MenuOnScreen" 
^define XtCPopupOnEntry "PopupOnEntry" 
^define XtCRowHeight "RowHeight" 
#define XtCVerticalMargins "VerticalMargins" 
^define XtCWidget "Widget" 

* Public Functions. 
* 

/* Function Name: XawPullRightMenuAddGlobalActions 

* Description: adds the global actions to the simple menu widget. 

* Arguments: app_con - the appcontext. 

* Returns: none. 
•/ 

void 

XawpullRightMenuAddGlobalActions(/* app_con */); 
/* 

XtAppContext app_con; 
*/ 

#endif /* JPuIlRightMenuh */ 
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include/SmeBSBpr.b 


/* 

* SXConsortium: SmeBSB.h.v 1.5 89/12/11 15:20:14 kit Exp $ 
* 

* Copyright 1989 Massachusetts Institute of Technology 
* 

* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright notice appear in all copies and that both that 

* copyright notice and this permission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* written prior permission. M.I.T. makes no representations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

* BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

* OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
*/ 
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/* 

* SmeBSBpr.h - Public Header file for SmeBSB object. 

* This is the public header file for the Athena BSB Sme object. 

* It is intended to be used with the simple menu widget. This object 

* provides bitmap - string - bitmap style entries. 

*/ 

#ifhdef _SmeBSBpr_h 
^define _SmeBSBpr_h 

#include <Xll/Xmu/Converters.h> 

^include <X11/Xaw/Sme.h> 

* SmeBSBpr object 

/* BSB pull-right Menu Entry Resources: 

Name Class RepType Default Value 

callback Callback Callback NULL 

destroyCallback Callback Pointer NULL 

font Font XFontStruct * XtDefaultFont 

foreground Foreground Pixel XtDefaultForeground 

height Height Dimension 0 

label Label String Name of entry 
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leftBitmap LeftBitmap Pixmap None 

lefiMargin HorizontalMargins Dimension 4 
nghtBitmap RightBitmap ' Pixmap None 
rightMargin HorizontalMargins Dimension 4 

sensitive Sensitive Boolean True 

venSpace VertSpace int 25 

width Width Dimension 0 

x Position Position On 

y Position Position 0 


menuName MenuName String "menu" 
*/ 

typedef struct _SmeBSBprClassRec *SmeBSBprObjcctClass; 

typedef struct _SmeBSBprRec *SmeBSBprObject; 

extern WidgetClass smcBSBprObjectClass; 

#define XtNleftBitmap " leftBitmap " 

^define XtNleftMargin "leftMargin" 

^define XtNrightBitmap " nghtBitmap " 

#define XtNrightMargin "rightMargin" 

#defme XtNvertSpace "venSpace 1 ' 

#define XtNmenuName "menuName" 

^define XtCLeftBitmap "LeftBitmap " 

^define XtCHorizontalMargins "HorizontalMargins" 

#defme XtCRightBitmap "RightBitmap" 

#define XtC VertSpace "VertSpace" 

#defme XtCMenuName "MenuName" 

#endif /* _SmeBSBpr_h */ 
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include/SmeBSBprP.h 


/* 

* SXConsortium: SmeBSBP.h,v 1.6 89/12/11 15:20:15 kit Exp $ 

* ■ 

* Copyright 1989 Massachusetts Institute of Technology 

* 

* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright notice appear in all copies and that both that 

* copyright notice and this permission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* written prior permission. M.I.T. makes no representations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 
* 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

* BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

* OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
. * Author: Chris D. Peterson, MIT X Consortium 
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*/ 

/*■ 

* SmeP.h - Private definitions for Sme object 
* 

*/ 

#ifndef _XawSmeBSBP_h 
^define _XawSmeBSBP_h 

* Sme Object Private Data 
+ 

^include <Xll/Xaw/SmeP.h> 
#include \7include/SmeBSBpr.h n 

* New fields for the Sme Object class record. 
* 

typedef struct _SmeBSBprClassPart { 

XtPointer extension; 
} SmeBSBpiClassPart; 

/* Full class record declaration */ 
typedef struct _SmeBSBprClassRec { 
RectObjClassPart rect_class; 
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SmeClassPart sme_class; 
SmeBSBprClassPart sme_bsb_class; 
} SmeBSBprClassRec; 

extern SmeBSBprClassRec SmeBSBprClassRec; 


/* New fields for the Sme Object record */ 
typedef struct { 
/* resources */ 

String label; /* The entry label. */ 

int vert space; /* extra vert space to leave, as a percentage 

of the font height of the label. */ 
Pixmap leftjritmap, rightjntmap; /* bitmaps to show. */ 
Dimension left_margin, rightjnargin; /* left and right margins. */ 
Pixel foreground; /* foreground color. */ 

XFontStruct * font; /* The font to show label in. */ 

XtJustify justify; /* Justification for the label. */ 

String menu_name; /* Popup menu name */ 


/* private resources. */ 

Boolean set_values_area_cleared; /* Remember if we need to unhighlight. +/ 

GC norm_gc; /* noral color gc. */ 

GC rev_gc; /* reverse color gc. */ 

GC norm_gray^gc; /* Normal color (grayed out) gc. */ 

GC invertjc; /* gc for flipping colors. */ 

Dimension left_bitmap_width; /*" size of each bitmap. */ 
Dimension left_bitmap_height; 
Dimension right_bitmap_width; 
Dimension right_bitmap_height; 
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} SraeBSBprPan; 


/*****»****** 


**************** ********************** 


* Full instance record declaration 
* 



typedef struct SmeBSBprRec { 

ObjectPan object; 

RectObjPan rectangle; 

SmePart sme; 

SmeBSBprPart sme_bsb; 
} SmeBSBprRec; 


* Private declarations. 



tfendif /* XawSmeBSBPpr_h */ 
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include/xwave.h 


# include 

<X11/Xlib.h> 

^include 

<X11/Xutil.h> 

^include 

<Xll/Xatom.h> 

# include 

< XI 1/Xaw/Cardinals.h > 

^include 

<Xll/StringDefs.h> 

^include 

<X11/Xmu/Xmu.h> 

^include 

< XI 1/Xaw/Command.h > 

# include 

<X11/Xaw/List.h> 

# include 

<Xll/Xaw/Box.h> 

^include 

<Xll/Xaw/Fonn.h> 

# include 

< XI l/Xaw/Scrollbar.h> 

# include 

< XI 1/Xaw/Viewport.h > 

# include 

< XI 1/Xaw/AsciiTcxt.h > 

^include 

<Xll/Xaw/Dialog.h> 

# include 

< XI 1/Xaw/MenuButton.h > 

^include 

< XI l/Xaw/SimpleMcnu.h> 

# include 

<Xll/Xaw/SmeBSB.h> 

^include 

<Xll/Xaw/Toggle,h> 

^include 

"SmeBSBpr-h" 

^include 

•PullRightMenu.h* 

# include 

<Xll/ShelLh> 

# include 

< XI 1/cursorfont.h > 

#define 

STRLEN 100 

^define 

NAMELEN 20 

# include 

"Image.h" 

# include 

"Message.h" 

# include 

<diren£.h> 

# include 

<math,h> 
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^include <stdio.h> 
^include "Palette.h" 
^include "Icon.h" 

#define PLOT_DIR "graphs" 

#define PLOT_EXT ".plot" 

#dcfine ELLA_IN_DIR 

^define ELLA_IN_EXT \eli" 

#define ELLA_OUT_DIR "." 

#define ELLA_OUT_EXT ".elo" 

#define VID_DIR "videos" 

^define VID_EXT "vid" 

^define IMAGEDIR "images" 

#define BATCH_DIR "batch" 
#define BATCH EXT ".bat" 

#define KLICS DIR "impon" 

#define KLICS_EXT ".klics" 

^define KLICS_SA_DIR "import" 

^define KLICS_SA_EXT ".klicsSA" 

typedef enum { 

TRANS_None, TRANSWave, 

} TransType; 

typedef enum { 

MONO, RGB, YUV, 
} VideoFonnat; 

extern String ChannelName[3][4]; 

tfdefine negifCbool, value) ((bool)?-( value): (value)) 
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rypedef struct { 

String name; 

Pixmap pixmap; 

unsigned int height, width; 
} IconRec, *Icon; 

typedef void (*Proc)(); 
typedef String *(*ListProc)(); 
typedef Boolean (*BoolProc)(); 

typedef struct { 
String name; 
WidgetClass widgetClass; 
String label; 

String hook; /* menuName for smeBSBprObjectClass */ 
} Menultem; 

typedef struct { 

String name, button; 

ListProc list_proc; 

String action_name; 

Proc action_proc; 

caddr_t action_c]osurc ; 
} Selectltem, *Selection; 

typedef struct { 

TransType type; 

int space [2]; 

Boolean dim; 
} WaveletTrans; 

typedef union { 
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TransType type; 
WaveletTrans wavelet; 
} VideoTrans; 
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typedef struct _VideoRec 
char name[STRLEN]; 
char pathfSTRLEN]; 
char filesISTRLEN]; 
VideoFormat type; 
Boolean 
Boolean 


{ 


/* Name of this video name.vid */ 
/* Path to frame file(s) */ 
/* Name of frames filesOOl if not name */ 
/♦ Type of video (MONO,RGB,YUV) */ 
disk; /* Frames reside on disk rather than in memory */ 
gamma; /* Gamma corrected flag */ 


Boolean 
int rate; 


negative; 


/* Load negative values in data */ 
/* Frames per second */ 
int start; /* Starting frame number */ 

int size[3]; /* Dimensions of video after extraction x, y and z */ 
int UVsample[2]; /* Chrominance sub-sampling x and y */ 

int offset; /* Header length */ 

int cols, rows; /* Dimensions of video as stored */ 

int x_offset, y_offset; /* Offset of extracted video in stored */ 


VideoTrans trans; 
int precision; 
short **data[3]; 
struct JVideoRec *next; 
} VideoRec, "Video; 


/* Transform technique used */ 
/* Storage precision above 8 bits */ 
/• Image data channels */ 
/* Next video in list */ 


typedef struct { 

Video video; 

char namefSTRLEN]; 
} VideoCtrlRec, *VideoCtri; 


typedef struct PointRec { 
int location[2]; 
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int usage; 

struct PoiniRec *next; 
} PoiniRec, "Point; 


typedef struct _FrameRec { 

Widget shell, imagejwidget, point_merge_widget; 
Video video; 

int zoom, frame, channel, palette; 
Boolean pointswitch, point_merge; 
Point point; 
Message msg; 
struct _FrameRec *next; 
} FrameRec, *Frame; 


#define NO CMAPS 6 

typedef struct _BatchRec { 
Proc proc; 

caddr_t closure, calldata; 
struct J3atchRec *next; 
} BatchRec, *Batch; 

typedef struct { 

char home[STRLEN]; 

XtAppContext app_con; 

Widget toplevel; 

int nojeons; 

Icon icons; 

Video videos; 

Frame frames; 

Point points; 

Palette palettes; 
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int no_pals; 
String parse_fik; 
String parsejoken; 
FILE *parse_fp; 
XVisuallnfo "visinfo; 
int levels, rgbjevels, yuv_levels[3]; 
Colonnap cmaps[NO_CMAPS]; 
String batch; 
Batch batch Jist; 
Boolean debug; 
int dither[16][16]; 
} GlobalRec, ^Global; 

typedef struct { 

Widget widgets[3]; 

int max, min, *value; 

String format; 
} NumlnputRec, *NumInput; 

typedef struct { 

Widget widgets[2]; 

double max, min, * value; 

String format; 
} FloatlnputRec, *FloatInput; 

extern Global global; 

/* InitFrame.c */ 

extern Video FindVideoQ; 

/* Pop2.c */ 
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extern void NAO; 

extern Widget FindWidget(); 

extern void DestroyO; 

extern void Free(); 

/* Storage. c */ 

extern void NewFrameO; 
extern void GetFrameO; 
extern void SaveFrameO; 
extern void FrteFrameO; 
extern void SaveHeaderO; 
extern Video CopyHeaderO; 

/* Message. c */ 

extern void TextSizeO; 

extern Message NewMessageO; 

extern void Message WindowO; 

extern void CloseMessageO; 

extern void MprinrfO; 

extern void DprintfO; 

extern void EprintfO; 

extern void MflushO; 

/* Icon3.c */ 

extern void FillFormO; 

extern void FillMenuO; 

extern Widget ShellWidget(); 

extern Widget FonnatWidgetO; 

extern void SimpleMenuQ; 
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extern int TcxtWidth(); 
extern Icon FindIcon(); 
extern void NumIncDec(); 
extern void FloatIncDec(); 
extern void Change YN(); 
extern XFontStruct *FindFont(); 
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DATA COMPRESSION AND DECOMPRESSION 
GREGORY KNOWLES AND ADRIAN S. LEWIS 
M-2357 US 
APPENDIX B-l 
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PCT/GB94/0W77 


z : Top . a 


© Copyright 1993 KLICS Limited 
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wrizcen by: 

Adrian Lewis 

* 


630X0 Fast T 

cp Octave 


seg 

Kl ICS 


macro 



TOPX 

&DG, &HG, told, iXX 


3Wdp 

&HG 

; HG=G1H0 

move . w 


• XX=G0 

neg . w 

&DG 

• DG=D( -GO ) 

add.w 

&HG , &DG 

VG-DD 

add. w 

&XX , &HG 

HG=G1D 

swap 

&HG 

HG=DG1 

move . 1 

&DG,&cld 

save DD 

endm 



macro 



TOPY 

&HG0, &newO r &HC1. inewl. 

&XX 

move . 1 

&newO,&XX ; 

read HG 

move . 1 

&nevl,&HGl 

read HG 

move. 1 

&HG1,&HG0 

copy HG 

add.l 

&XX.&HG1 

nevl=HlGl 

sub. 1 

&XX,&HG0 

new0=H0G0 

endm 



macro 



TOPBLOCK 

&DG0 , &HG0, &newO, ioldO, 

&DG1. &KG1, 

TOPY 

&HG0 . &newO , &HG1 , tn©wl , &XX 


TOPX 

&DG0 , &HG0 , &oldO , &XX 


TOPX 

&DG1 , &HG1 , &oldl , &XX 


endm 



macro 



TOPH 

tDG, &HG, &new, &old, &XX 


move . 1 

&new,&HG 


TOPX 

&DG, &HG, &old, &XX 


endm 



macro 



TOPE 

&DG, &old, &XX 


move . 1 

&DG, iXX ; 

XXsDG 

swap 

&XX 

XX=GD 

move . w 

&XX, &DG 

DG=DD 

move . 1 

&DG,&old 

save DD 
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Engineering:Kl:c 

sCode : CcmpPiCt : Top . A 



endn 




TcpBwd 
• 

rjwc 

EXPORT 



?S 

RZCORC 

3 



src 

DS.L 

L 



ds- 

DS.L 

1 



width 

OS . L 




r.e lghc 

SS . L 

i 



» 

ENDR 





1 ink 

a6. #0 

; no local variables 



movem . 1 

d4-d7/a3-a5. -(a7) 

; score registers 



moved . 1 

PS . src ta6) , aO 

; read src 



move . i 

PS.heighc (a6) ,d7 

; read heighc 



move. 1 

PS. width (a6) , d6 

; read width 



move . 1 

aO.al 




move . 1 

PS.dst (a6| , al 

; read dst 



move , I 

d6,d5 

; inc 3 width 



add . 1 

dS,d5 




move . 1 

d5 . a4 

; save inc 



isr . i 

U,d7 

; height /s2 



surxq. l 

n.di 

; height-»2 



lar . 1 

#2.d6 

: width/ =4 



subq. X 

#2,d6 

; width-=2 



move. 1 

d6 . d5 

; ccount svidth 



move . 1 

(aO)+,d0 

; d0=*nevO++ 


1 

vQOl 

TOPH 

dO.dl. (a0)+, (al)+.d4 




TOPH 

dl.dO, <a0)+, <al)*,d4 




dbf 

d5,fldol 

; while - 1 1 =x- -ccount 



TOPH 

dO.dl, (aO)*. <al>*,d4 




TOPE 

dl. {al}*.d4 



edo2 

move. 1 

a0.a2 

; new0=newl 



move. 1 

al.a3 

; old0=oldl 



add*. 1 

a4 , aO 

; newl+=inc 



add*. 1 

a4. al 

; oldl*=inC 



move. 1 

d6.d5 

; ccount -width 



TO FY 

d2, <a2>+,d0, <a0)-*.d4 



Gdc2 

TOPBLOCK 

d2.d3, (a2)*. <a3>+,d0,dl 

. (a0>*. (al)+,d4 



TOPBLOCK 

d3.d2, <a2U. la3U,dl.dO. <a0)*. (al)+,d4 



db£ 

d5,9do3 

; while -11= — ccount 



TOPBLOCK 

d2.d3. Ja2)+. (a3)+,d0,dl, (a0>+, (al)+,d4 



TOPE 

dl. (al)+,d4 




TOPE 

d3, (a3>*,d4 




dbf 

d7 , «do2 

; while -li=- -height 



move. 1 

d6,d5 

; ccountawidth 



add.l 

•l,d5 

,* dOa*new0+* 


<?do4 

move . 1 

{a3)+,{al)+ 

; copy prev line 



move. 1 

(a3J+, ial)» 




dbf 

d5.8do4 

; while -1 ! =- -ccount 



movem . 1 

<a7)+,d4-d7/a3-a5 

; restore registers 

- 
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unlk a6 ; remove locals 

res ; return 

ENDFUNC 
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Engineering : Kl lcsCode : CompPi ct : Table . a 


© Copyright 1993 KLICS Led. 
All rights reserved. 


6 80X0 Table Loocjp RGB/ YW code 


machine MC68030 
seg 'klics' 

if tTYPE{ * seg* »*• UNDEFINED' then 

seg &seg 

endif 

MKTABLE FUNC EXPORT 

PS RECORD 8 

Table DS.L 1 
ENDR 

link a 6, tO 

movem, 1 d4-d7/a3-a5 , - (a7 > ; score registers 

move.l PS.Table(a6) ,a0 .-Table is (long) (2U+512) ( long) ( 512 - { 6 

clr.l dO ;U value 

SMakeLoop 


move. w 

*512,dl 

; 512 


move. 1 

d0,d2 

;U 


move. w 

d2,d3 

;U 


add. w 

d2,d2 

;20 


add. w 

dl,d2 

;2U ♦ 

512- 

lsr . w 




move . w 

d2, (a0) + 

.Place 

1st word 

move . w 

d2, (a0) + 

; Place 

2nd word 

add . w 

d3.d3 

;2U 


move . w 

d3,d2 

;2U 


add. w 

d3,d3 

;4U 


add. w 

d2.d3 

;6U 


asr. w 

#4 # d3 

.-6U/16 


sub. w 

d3,dl 

;312 - 

(6U/16) 

lsr . w 

#2.dl 



move . w 

dl, (a0> + 

; Place 

1st word 

move . w 

dl. <a0> + 

; Place 

2nd word 

add.w 

#l,d0 



cmp.w 

#$0200. dO 



bne 

0 Make Loop 



move . 1 

#$00000200. dO 

value 

clr.l 

d4 



0MakeNegLocp 




move .w 

•312. dl 

;S12 


move . w 

d0,d2 

;U 
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or . w 

^SFCOO , d2 



novt . w 

d2 , d3 



add. w 

d2,d2 

. :2V 


add. w 

dl,d2 

2V * 

512 

asr . v 

*2, d2 



move . w 

d2 , < aO ) > 

- Place 

1st word 

move . w 

d2, (aO)* 

■ Place 

2nd word 

add. w 

d3, d3 

2U 


move . w 

d3.d2 

2U 


add . w 

d3, d3 

4U 


add. v 

d2,d3 

6U 


asr.w 

»4,d3 

60/16 


sub .v 

d3 , dl 

512 - 

(60/16) 

asr .w 

»2,dl 



move . w 

dl. <a0) + 

Place 

1st word 

move . w 

dl. (a0) + 

Place 

2nd word 

add.l 

• l.dO 



add. I 

#l,d4 



crap . w 

#$0200. d4 



bne 

CMaJceHegLoop 



mo vera. 1 

(a7)+,d4-d7/a3-a5 

restore regist 

on IX 

a6 

remove locals 


rca ; return 


ENDFUNC 



macro 


* 

FUCOV 

4V, tSPl, &SP2 


move. w 

&V.&SP1 


clr.b 

&SP1 


audi, w 

#$3FFF,&SP1 


sne 

&SP1 


best 

#13,&SP1 


seq 

&SP2 


or.b 

&SP1.&V 


and. w 

&SP2,&V 


swap 

&V 


move . w 

&V.&SP1 


clr.b 

&SP1 


audi . w 

#$3FFF.&SP1 


sn« 

&SP1 


best 

#13,&SF1 


seq 

&SP2 


or.b 

&SP1,&V 


and. w 

&SF2.&V 


swap 

&v 


endzn 



if 4 TYPE ( 'Seg* )*' UNDEFINED 


aeg 

fcseg 


endif 


YUV2RGB4 FUNC 

EXPORT 

PS 

RECORD 

8 

Table 

DS.L 

1 
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-ixmap 

DS.l 

* 1 

Y 

DS. L 

1 

-■ 

DS.L 

1 

7 

DS.L 

1 

area 

DS.L 

1 

width 

DS.L 

1 

cols 

DS.L 

i 


HMDR 


LS 

RECORD 

0 , DECK 

mc 

DS, L 

1 

width 

DS.L 

1 

tend 

DS.L 

I 

count 

DS.L 

1 

L5i2e 

EQU 

• 


ENDR 



'void YUVtoRGB ( Pt r TablePtr, long -pixroap, short *yc. short 'Uc. short *Vc, long area.l 
' long 

V, a4 - pmO, a5 - pml 


inc. lwidth. fend. count; 
aO - YO, al - Yl. a2 - a. a3 
d0..6 - used. d7 - counc 


link 
movent. 1 

move . 1 
move . 1 
move . 1 
move. 1 
move. 1 
move. 1 
move. 1 
lsl.1 
add.l 
move. 1 
move . 1 
move.l 
asr. 1 
subq. 1 
move. 1 

add.l 
add. 1 
add.l 
move . 1 

move . 1 

lal.l 

add.l 

add.l 

sub.l 

move . 1 

move. 1 
move. 1 


a6. tLS.LSize 
dO-d7/aO-a5, -(a7> 

PS.pixmap(a6) , a4 
a4,a5 

BS.Y(a6) ,a0 
aO.al 

PS.U(a6) ,a2 
PS.V(a6) ,a3 
PS. area <a6) ,d7 
*2,d7 
a4,d7 

d7,L$.fend(a€) 

PS. width (a€ ) ,d5 

d5.d7 

#l,d7 

#l.d7 

d7, PS.widthtaS) 

dS. d5 
dS.al 
d5.d5 

d5. LS. width (a6) 

PS. cols (a6) ,d4 

#2,d4 

d4,a5 

d4.d4 

d5,d4 

d4 ,LS. inc (a6) 

a6,-<sp) 
PS.Tabl«<a6> ,a6 


Colors wanted are: 

RED s (Y ♦ 2V + 512) / 4 

GR£EN = (Y-V+512- (60/16)) 
BLUE * (Y ♦ 2U * 512) / 4 


/ 4 


; save locals 

; store registers 

; pmO=pixmap 
; pml«pmO 
; Y0=Yc 
; Y1=Y0 
; U»Uc 
; V»Vc 
; J end a axe a 
; fend«s2 
; f end* «ptnO 
; save fend 
; width=width 
; count »width 
; count>>«:l 
; count -rl 
; save width 

; width* =2 

; Yl*=width 

; width*=2 

; save width 

; inc=cols 

; inc<<-2 

; pcnl + = inc 

; cola* =2 

; inc now 2*cols-widtii bytes 

; save inc 


UTable part is for (2V + 512) 
UTable part is for (512 - (6a 
UTable part is for (2U * 312) 


0do 


uv2rgb' % lT**. *v*+t 
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mcvt . v 

and. w 
move . 1 
move . 1 
move . 1 
C-DidQuickU 

move . w 
beq 

move . w 
asr . w 
sub. w 
move . w 
swap 
move . w 
move . 1 

and. w 
move . 1 
move . 1 
bra 

0DoQuickU 

move . 1 
move. 1 
move . 1 
bra 

SDoQuickV 

move. 1 
move. 1 
move. 1 


Engineering: Kl icsCodG:Conrp?ict :Table.a 
dl - ra^d2 - ca. d3 - ba. d4 - rb, d5 - gb/512. d6 - bb 

; V 


(a2)+,d2 
$DoQuickU 
*$Q3FF,d2 
(a6,d2.v*8) ,d3 
d3,d6 

4 (a6.d2 .W8) . d5 

(a3)+,dl 

3DoOuickV 

dl,d4 

#2,dl 

dl,d5 

d5,d2 

d5 

d2,d5 
d5,d2 

•$Q3FF,d4 
(a6,d4.w-8) ,d4 
d4,dl 
CTestEnd 


♦S00800080, d3 

d3,d6 

d3,d5 

ADidOuickU 


d5.d2 

#$00600080, d4 
d4.dl 


; BLUE. Get (2U ♦ 5123/4 for Blue = ( Y * 
, Dup for second pair 

; GREEN, Get (512 - (6U/16H/4 for Gree: 


;if zero chen handle using the cjuicJc m 
; GREEN, Get (312 - (6U/16) - V>/4 for • 

;Dup (or second pair 

; RED, Get (2V ♦ 512J/4 for Red a (Y + 


; BLUE* Get (2U + 512) /4 for Blue a (Y * 
;Dup for second pair 

; GREEN, Cet (512 - (6U/16))/4 for Gree: 


;GRE»J # Cet (512 - (6U/16) - V) /4 for 
.-RED, Get (2V + 512) /4 for Red » (Y + 
; Dup for second pair 


GTeatEnd 


add Ya to RGB values 


move. 1 


(a0)+,d0 


FETCHY <a0)*,d0,dl,d2,d3 

; Y 


asr.w 

#2,d0 



swap 

dO 



asr.w 

#2,d0 



swap 

dD 

;Y ifl -128 to +127 


add.l 

d0,dl 

* RED, Get (Y* 2V ♦ 512) for Red ■ 

(Y + 

add.l 

d0,d2 

■GREEN, Get (Y + (512 - (60/16)) - 

V) 

add. 1 

d0,d3 

- BLUE. Get (Y + (2U ♦ 512) for Blue 

= ( 

; add Yb 

co RGB values - FETCHY2 (al ) + , dO, d4 . d5. d6 


move . 1 

<al)+,d0 ;Y 


asr.w 

#2,d0 



swap 

dO 



asr.w 

#2,d0 



swap 

dO 

Y is -128 to +127 


add.l 

d0,d4 

RED, Get <Y+ 2v * 512) for Red = 

(Y ♦ 

add.l 

dO.dS ; 

GREEN, Get <Y + (512 - (6U/16)) - 

V) 

add.l 

d0,d6 

BLUE, Get (Y ♦ (2U + 512) for Blue 


move . 1 

dl.dO 



or.l 

d4,d0 



or.l 

d2,d0 



or.l 

d3 . dO 



or.l 

d5,d0 
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<?do2 


or . * 

and. I 
one 


( Engineering: KlicsCode :CompFici : Table. a 

^ d6.d0 


^srrooFFOo.do 

Sover 


save RGBa - HXRCB di.d2.d3. (a4)- 


lsl.l 

#8.d2 

or . 1 

d3.d2 

rr.ove . 1 

dl.d3 

swap 

d3 

f7V3V« , w 

d2.d3 

swap 

d2 

move. w 

d2.di 

move . 1 

dl, (a4)-> 

move . 1 

d3. (a4)- 

; save 

RGBb - MKRGB 

lsl.l 

#8,d5 

or.l 

d6.d5 

move. 1 

d4,d6 

swap 

d6 

move . w 

d5,d6 

swap 

d5 


move . w 
move . 1 
move . 1 

dbf 

move. 1 

adrfa.l 

adda.l 

adda.l 

exg.l 

move. 1 

cmpa . 1 

blew 

movem. 1 

unlk 

res 


move . 1 
move . 1 
bra 


d5.d4 

d4, (a5> + 
d6. US)* 

d7,3do 

<sp>+, a 6 

LS. inc (a6 ) , a4 
LS. inc (a6) , a5 
LS.widch(a6) , aO 
aO.al 

PS. width (a6) , d7 
LS.fend(a6) , a4 
edo2 

(a7)*.dO-d7/aO-a5 
a6 


a6. - (sp) 

PS. Table (a6) , a6 

<?do 


over t .ou 


G^COCC (12) 
GrGBGB (12) 
B=0R0R (12) 
B=0R0R (21) 
B = 0 RGB (2) 
G=GBGB (21) 
R=0RGB (1) 
♦RGB+o=rgb (1) 
*RGB*+=rgb (2) 


C.GOCO (12) 
G=GBGB (12) 
B=0R0R (12) 
BaOROR (21) 
B=0RGB (2) 
C=GBGB (21) 
R-ORGB (1) 
**RGB+* = rgb (1) 
■RGB***rgb (2) 

while 


pmO-*»inc 

pml*sinc 

Y0+»width 

yi<->yo 

counc -width 

pmO<f enci" 

while 

restore registers 
remove locals 


GFixIt 

btst 
beq 
and. 1 
GDlTopNotNeg 
best 
beq 
and. 1 
or.l 

9DlT0pN0tFO3 


#31, dO 

eDlTopNotNeg 
#$0000FFFF.d0 

•24, dO 

GDlTOpNOtPos 

#$OOOOFFIT,dO 

#$00FF0000.d0 


btst 
beq 


•15, dO 

SDlBotNotNeg 


;See if upper word went negative 
; Pin at zero 

; See if upper word went too positive 

;Mask old data out 
;New data is maxed 


.See if lower word went negative 
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and. 1 

•SFFFFOOOO.dO 

eDl3ocNocNeg 


bcsc 

t8,d0 

beq 

SDlBotNoCPOS 

and. 1 

iSFFFFOOOO.dO 

or. L 

•$O0O0OOFF,dO 

SDlBotNotPoa 


rts 



Engineering: KlicsCode:CompPict : Table. a 
; Pin ac 2ero 

;See if lower word wenc :oo positive 

;Mask old daca out 
.New data is maxed 


<?over 


move . 1 
bsr 

move. 1 

dl,d0 

3FixIt 

dO,dl 

move . 1 
bsr 
move. 1 

d2,d0 

iFixIt 

d0,d2 

move . 1 
bsr 
nerve. 1 

d3,d0 

iFixic 

d0,d3 

move. 1 
bsr 
move. I 

d4,d0 

QFixIt 

d0.d4 

move. 1 
bsr 
move. 1 

d5,d0 

QFixIe 

d0,d5 

move. 1 
bsr 
move. 1 

d6,d0 

»FixIt 

d0,d6 

bra 

9 ok 

ENDrUNC 


END 
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<S Ccpyrighc 1993 KLICS Limited 
All r ignis reserved . 

Writ ten by: Adrian Lewis 


68000 Klics Utilities 



seg 

' Jclics ' 


KLCopy 
* 

func 

EXPORT 


KLCOPY (shor 

* 

z 'arc, short *dst, 

int area) ; 

PS 

RECORD 

3 


src 

DS.L 

1 


dst 

DS.L 

1 


end 

DS, L 

1 



ENDR 




link 

a6 , HO 

; no local variables 


move . 1 

PS.src<a6> ,a0 

; short *src 


move . 1 

PS . dst (a6> ,al 

; short # as>t 


move . 1 

PS . end ( a 6 ) ,d3 

; long area 


lsr.l 

M,d3 

; in words <x8) 

3 do 

subq. 1 

U,d3 

; area-«l 

move. 1 

<a0)+, (all* 

; *d3t*+=*src+* 


move . 1 

(a0)*, (all- 

; * dst src* *- 


move. 1 

ta0)+, (al) + 

; *dat++»*src++ 


move. 1 

(a0)+, (all* 

; *dst+***src*+ 


move. 1 

(a0)+, <al) + 

; •dst+ + **src<*"» 


move. 1 

(a0)+, <al) + 

*dst++=*src+* 


move . 1 

<a0)+. (al)-*- 

; *dst++e"src*+ 


move: 1 

(aO)-r, ial) + 

; *dst*-*=*src*-+ 


dbf 

d3,6do 

; if -l*s- -area goto dc 


unlk 

a6 

; remove locals 


rts 


; return 


ENDFUNC 



KLHalf 

FWJC 

IX PORT 



KLHALF ( short "src, short 'dst, long width, long height); 
Dimensions of dst (width, height) are half that of src 


PS 

RECORD 

8 


src 

DS.L 

1 


dst 

DS.L 

1 


width 

DS.L 

1 


height 

DS.L 

1 


• 

ENDR 




link 

a6,*0 

; no local variables 


mo vera. 1 

d4. -<a7) 

; store registers 


move . 1 

PS.src(aS) , aO 

; abort *src 


move . 1 

PS.dstfa6l .al 

; short *dst 
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move . 1 

^PS . width ( a 6 ) , 


move . 1 

PS hpirhr (aAi 


s \xbq . 1 

#l,d3 

v w — / 

move . 1 

d2 , d4 


i sr . 1 

**2 , d4 


S ii , 1 

^l,d4 



i du j + , au 


no ve . w 

idU 1 


(3UUCJ . » 

f ^ , au 


nove . 1 

dO. (al) ♦ 


move . 1 

(aO) *,d0 


mo vc w 

t au i ♦ , au 


addq. 1 

#2 , aO 


move. 1 

do! (al)+ 


dbf 

d4 . 0do_x 


Adda . 1 

d2.a0 


adda.l 

d2,a0 


adda. 1 

d2.a0 


adda. 1 

d2,a0 

* 

dbf 

d3.fldo_y 


movem . 1 

<a7)+,d4 


unlk 

a6 

• 

res 



ENDFUNC 


KLZero 

FUNC 

EXPORT 

KL2ERO ( short 

•data, int area); 

PS 

RECORD 

8 

data 

DS.L 

1 

end 

DS.L 

1 

• 

ENDR 


* 

link 

a6 , #0 


move. 1 

PS. Oat a (a6) , aO 


move , 1 

ra . enu loO ) / QJ 


lsr.l 

#3,d3 


suoq. 1 

#1 HI 

<?do 

clr.l 

(a0>* 


clr.l 

(a0) + 


clr.l 

(a0>* 


clr.l 

(aO) * 


dbf 

d3 ( 8do 


unlk 

a6 


rts 



ENDFUNC 


CLEAKA2 

FUNC EXPORT 


move. 1 

»0,a2 


res 



d2 


long width 
long height 
height -=1 
counc=widch 
count /= 2 
count - = 1 
d0=*src+> 
dL2 = • sre 
src-=l short 
•dst+*=d0 
dOa* arc-** 
d2»" src+> + 
src+rl short 
*d3t+«.=d0 

if - 1 1 =- -width goto do_x 
skip a quarter row 
skip a Quarter row 
skip a quarter row 
skip a quarter row 
if -1 l =--heighc goto do_y 

restore registers 
remove locals 
return 


no local variables 

short *data 

long area 

in words (x4 ) 

area-sl 

•dat ♦♦••arct* 

•dst+*=*src*^ 

*dst*+a*src+* 

*dst+*= # src** 

if -II ---area goto do 

remove locals 
return 


END 


SUBSTITUTE SHEET (RULE 261 


WO 94/13385 


PCT/GB94/0W77 


- 656 - 

Engineering : Kl acsCode : CompF ice : K 1 ics Encode . h 


* © Copyncht 1993 KLICS Limited 
" All rights reserved. 

Written by: Adrian Lewis 

• <■••••••••••••••••/ 

typedef ?crucc { 


xr.t 

bpf_ir. . 

/• 

User - 

Bytes per fraine in input stream */ 


bpf_cuc , 

/* 

User - 

Bytes per frame in output stream •/ 


buf_size; 

/* 

User - 

Buffer size (bytes) •/ 

3colean 

intra , 

/* 

Calc - 

Compression mode intra/inter */ 


auto_q. 

/• 

User - 

Automatic quantization for rate control */ 


bu£_sw; 

/" 

User - 

Theoretical buffer on/off •/ 


quant , 

/* 

User - 

Starting quantiser value */ 


thresh. 

/ * 

User - 

Threshold factor */ 


compare. 

/• 

User - 

Comparison factor */ 


base{ 5] ; 

/• 

User - 

Octave weighting factors '/ 

:nt 

buffer. 

/• 

Calc - 

Current buffer fullness (bytes) •/ 


prevbyces, 

/* 

Calc - 

Bytes sent last frame */ 


prevquact ; 

/* 

Calc - 

Quantisation/activity for last frame •/ 

double 

tmp_quant ; 

/9 

Calc - 

Current quantiser value quant */ 


) KlicsEDataRec; 

typedef struct ( 

KlicsSeqHeader seqh; 

KlicsFrameHeader frmh; 

KlicsEDataRec ancd; 

Buffer buf; 
) KlicsERec, *KlicsE; 
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© Copyright 1993 KLICS Limited 
All rights reserved. 

written by: Adrian Lewis 


680X0 KlicsDecode code 

Fast code fcr: 

3/2 octave input at ream 
2/1 octave output image 


sea 

include 
include 


•klics 1 
•SitsJ.a' 
'Traps .a ' 


machine 


MC68030 


Data scream readers; 

X DELTA , XVALUE. SKIPHUFF, XINT 


macro 
XDELTA 

buf.rinc 

buf_get 

beq.s 

moveq 

buf_get 

bne.s 

(?dopos buf_get 
dbne 
one. a 

move . 1 
subq.b 
lsr.l 
andi . w 
add. w 
bra. s 

<?fndpos neg.w 
addq. 1 
bra.s 

Odoneg buf_get 
dbne 
bne . s 

move. 1 
subq.b 
lsr.l 
andi .w 


taddr, istep, &ptr,&data, &bno, &spare 


tptr, tdata, &bno 
idata, tbno 
©quit 
*6, tspare 
fidata, ibno 
0don«g 

&data, tbno 
&spare, Qdopos 
Qfndpos 

&data, & spare 
*7,tbno 
&bno , & spare 
#$007F.&spare 
#8 , fiapare 
fiwrite 

& spare 
#7, iapexe 
Owrite 

&data,&bno 
& spare, Odoneg 
Sfndneg 

&data, & spare 
#7,tbno 
&bno. t spare 
*$007F.&spar* 


if zero write 
set up count 
read sio^i 

if negative - > doneg 


if 


-spare! *- 


spare=data 
bno-=6 
apare»=bno 
spare AND« mask 
spare* *9 


bits*=bics 
bits+s8 


; if — spare J=-l 


spare»data 
bno-*6 
spare»3bno 
spare AND* mask 
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add . w » 

*8,4spare 

: spare+=9 


neg . w 

ispare 



bra. s 

Owrice 


?£"ndneg 

subq. 1 

* 7 , & spare 

; level-=8 


1 Sl . w 

iscep spare 

; level<<=step 


swap 

iscep 



add . w 

istep, &spare 



swap 

istep 



add . w 

ispare , &addr 

; *addr=delta 






en dm 




macro 



• 

XVALO 

&addr , 4 seep, ipcr , idata, &bno, d. spa re 


clr . w 

&spare 



buf_rinc 

ipcr, &daca, ibno 



bu £ _g e c 

&daca, &bno 



beg . s 

Qquit 

if zero write 


movcq 

#6, fcspare 

sec up count 


buf^gee 

& data, &bno 

read s ign 


bne . s 

edoneg 

if negative ~ > doneg 

'Jdopo 3 

buf gee 

&data, tbno 




&spare, Sdopos ; 

if * • spare J * ~ I 


bne . s 

9 1 ndpos 



move . 1 

idaca. &spare 

spare=daca 



#7,ibno 

bno-=6 



ibno, tspare 

spare>>*bno 


andi .w 

#S007f.ispare 

spare AND* mask 


add. w 

#8, & spare 

spare* » 9 


bra . s 

Svrite 


Sfndpos 

neg . w 

& spare 

biC3-=biCs 


addq.l 

#7 , tspare 

bits-*=8 


bra . s 

flwrite 


3doneg 

UU £ g 6 t 

&data, &bno 




& spare , Gdoneg 

if --spare • =- 1 


bne . s 

Gfndneg 



move. 1 

&data, ispare 

spare^daca 


subq. b 

*7 I( tbno 

bno - s 6 


lsr.1 

&bno.& spare 

spare>>»bno 


andi . w 

»$007F-&spare 

spare AND* mask 


add • w 

•8, & spare ; 

spare* a9 


neg , w 

& spare 



bra . s 

@wriee 



3\LDq . X 

»7,&apaxe ; 

level-=8 

Gwrite 

lai.w 

&step,&spare 

level<<*scep 


swap 

fcstep 



add.w 

&step, & s pa re 



swap 

istep 



move . v 

& spare, iaddr 

*addr»level 

Qquit 
* 





endm 
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macro 
XVAL1 

c lr . w 
bu£_rinc 
but _gec 
beq. s 
moveq 
buf _gec 
tone, s 

9dopos buf^get 
dbne 
bne. s 

move . 1 
subq. b 
lsr.l 
andi . w 
add.w 
bra . s 

Gfndpos neg.w 
addq.l 
bra. s 

3doneg buf_gec 
dbne 
bne. « 

mcve.l 

subq.b 

lsr.l 

andi . w 

add.w 

neg.w 

bra. s 

efndneg subq.l 


^addr.&atep.&pcr, <*dazz, ibno. &spare 


©write 
(3 quit 


Isl.w 
move . w 

endm 


ispare 

*Ptr,&daca, Abno 
'daca,4bno 

'3quit 

•6 , ispare 
&daca, ibno 
Gdoneg 

&data, &bno 
&spare, edopos 
Ofndpos 

£data,&spare 

&-bno, 4 3 pare 
*S007F, ispare 
*8 , ispare 
Pwrite 

& spare 
* 7 - 4 spare 
Gvrite 

&data.ihno 
& spare, ddoneg 
fl 5 ndneg 

4 data, tspaxe 

£bno , & spare 
#S007F.& S pare 
*8,&spare 
& spa re 
©write 

*7, &spare 

4 seep, 4 spare 
&spare,&addr 


if zero wrice 
sec up count 
read sign 

it negative -> doneg 


if --spareia-l 


spare=data 
bno-»6 
spare>>=bno 
spare AND* mask 
sparer =9 


bita-sbita 
bits* »8 


if — spared 1 


■pare»data 

bno-sfi 
spare>>*bno 
spare AND* mask 
spare* »9 


level -^8 

level«satep 
•addrslevel 


9 do 


9 end 
flquit 


macro 
SKIPHUFF 

b^f. get 
beq.s 
buf_get 
moveq 

bu£_oec 

dbne 

hne.a 

subq.b 
buf_rinc 


&ptr, &data,&bno,& spare 


&data t &bno 
©quit 

&daca. fcbno 
#6 . & spare 

idata. tbno 
& spare, «do 
Send 

#7 , ibno 

&ptr,&data,ibno 


if 2ero quit 
skip sign 
sec up count 


if 


--spare! *- 1 


bno-=6 
till buffer 


endm 
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ibics,. iaddr. istep. ipt r. idaca. ibno 


Note: half_q 13 missing 


Qpos 
@cont 


9shft 


(?pos 


tuf _rir.c 

ipt r . idata, ibno 


move . 1 


* 1 C3U lL-Odld 

sub .b 

ibits . ibno 

; dl-=bics-l 

subq.b 

• 1 . ibno 

; dl-=l 

lsr;l 

ibno, dO 

; result>>=bno 

clr.l 

dl 

; dlsO 

beet 

ibits.dl 

; dl[bits]=l 

subq. 1 

• 1, dl 

; dl^mask 

best 

ibits.dO 

; sign? 

beq.s 

epos 

; if positive goto pos 

and. 1 

dl.dO 

; apply mask leaving level 

neg. 1 

dO 

; level -a level 

bra. s 

econc 

; goto cone 

and. 1 

dl,d0 

; apply mask leaving level 

lsl.l 

istep, dO 

; level<<=3tep 

move . w 

dO. iaddr 

; *addr-result 

en dm 



macro 



XI NT 

ibits, iaddr. istep. iptr , idata. ibno 

-dware comparable version: sign mag ( lsb->msb) 

bu f_rinc 

iptr , idata , ibno 


move. 1 

idata. dO 

resultsdata 

sub. b 

i bits, ibno , 

dl-«bits-l 

subq.b 


dl-=l 

lar.l 

ibno , dO 

terap>>mbno 

clr.l 

dl 

reaultsO 

swap 

ibno 

use free word 

move . w 

tbits.ibno 

bno=bnc .bits 

subq. w 

ibno 

count =bics-2 

lsr.l 

tl.dO 

shift msb from temp 

roxl. 1 

#l,dl 

into lsb of result 

dbf 

ibno,«shft 

for entire magnitude 

swap 

ibno 

restore bno 

best 

#0,d0 

sign test 

beq. 3 

epos 

if positive -> pos 

neg . 1 

dl 

results -result 

lsl.l 

istep, dl 

result<<ast ep 

move . w 

dl. iaddr 

*addr=result 

endm 




Block data read/write: 
VOID, STILL, SEND, LPFSTILL 


macro 
VOID 


clr. w 


ixjblk. iy.blk 
(a2) 
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addq.l =* 

&x_blk.a2 

caddr+=x_blk 


clr . w 

(a2) 




adda .v 

4y_blk,a2 

caddr+«y_jDlk 


clr .w 

ia2) 




adcq. 1 

&x_blk,a2 - 

caddx+sx^blk 


clr.w 

• 

(a2) 




er.dra 





rr.acrc 





STILL 

& x_bl k . iy_bl k . 4 S t op 




XVALO 

(a2) , iscep. a0,d6.d7,d0 




addq.l 

4xjDlk,a2 

caddr+ «x_blk 


XVALO 

(a2) , &3tep. a0.d6.d?.d0 




adda . w 

&y_blk.a2 

caddr+=y_blk 


XVALO 

ta2} . &3tep, aO,d6,d7,dO 




addq . 1 

£x_blk,a2 

caddr*=x_blk 


XVALO 

(a2) , istep, a0.d6,d7,d0 




endm 





macro 





ST ILL SEND 

&x_blk. &y_bl)e, iscep 




XVALl 

(aS) . &atep, a0,d6,d7,d0 




addq.l 

&x_blk,a2 

caddr+=x_blk 


XVALl 

(a2) , iotep, a0,d6,d7,d0 




adda.w 

ayjblk.a2 

caddr-*=y_blk 


XVALl 

U2) ,4st«p,aO,d6,d7.dO 




addq.l 

&x_blk.a2 

caddr*=x_blk 


XVALl 

• 

(a2) , &3tep, aO,d6,d7,dO 




endm 





Tnacro 





SEND 

• 

&x_bl k , iyjbl k . & a t ep 




XDELTA 

(a2) , &atep,a0.d6.d7 . dO 




addq. 1 

*x_blk.a2 ; 

caddr+=xjblk 


XDELTA 

(a2) ,4step,a0.d6.d7,d0 




adda . w 

&y_blk,a2 

caddr+sy^ blk 


XDELTA 

<a2) ,&step, a0.d6.d7.d0 




addq.l 

&x_blk,a2 ; 

caddr*sx_blk 


XDELTA 

<a2) ,fcst«p.a0,d6,d7,d0 




endm 





macro 





LPFSTILL 

&x_blk, 4y_blk, fcscep. 4bit3 



XINT 

ibits, (a2) ,&step.a0.d6, d7 


■ Readme (at baddx) 


addq.l 

4xjblk.a2 


• caddr+=x_blk 


XINT 

fcfcits, <a2) ,&step, a0.d6.d7 


• Readlnc 


adda.w 

&y_blk,a2 


caddr+*y_blk 


XINT 

dibits, (a2) ,istep.a0,d6,d7 


Readlnc 


addq.l 

fioc_Jalk.a2 


caddr+=x_blk 


XINT 

4bita. <a2) ,&step, a0,d6, d7 


Readlnt 


endm 

* 
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Daca skipping: 


SXIP4 , STILLSK:?. S3_SKIP. SENDSKIF 


SKIP4 

FUNC 

EXPORT 




buf_nr,c 

a0.d6.d7 

rill buffer 


SKIPHUFF 

a0.d6.d7,dO 




SKIPHUFF 

a0,dfi,d7,d0 




SKIPHUFF 

a0.d6.d7, dO 




SKIPHUFF 

a0.d6,d7,d0 




res 





ENDFUNC 




STTLLSKIP FUNC 

tJVr\JI\T 




buf_rinc 

au , Ob , o / 

; BUF_INC 



buf_get 

d6.d7 

; BUF.GET 



beq. a 

Gskl 

; if 0 the 

STOP 


bsr 

SKIP4 




bu£_rinc 

a0,d6.d7 

; BUF„INC 


9skl 

buf.get 

d6,d7 

; BUF.GET 



beq. s 

9ak2 

; if 0 che 

STOP 


bsr 

SKIP4 




buf_rinc 

a0.d6.d7 

; BUF. INC 



buf _gec 

d6.d7 

; BUF_GET 



beq. s 

3sk3 

; if 0 Che 

STOP 


bar 

SKIP4 




buf _rinc 

a0.d6,d7 

; BUF_INC 


«sk3 

buf _g«C 

d6,d7 

; BUF_GET 



beq, s 

0nxt 

; if 0 the 

STOP 


bsr 

SXIP4 



Onxt 

res 





END FUNC 




SS.SKIP 

FUNC EXPORT 




buf.rinc 

a0,d6,d7 

; BUF_INC 



buf _gec 

d6.d7 

; BUF_GET 



beq. s 

(?skl 

; if 0 then 

STOP 


bu t_gec 

d6 . d7 

; BUF_GET 



bne. s 

9skl 

; if 1 then 

VOID 


bar 

SXIP4 




buf_rinc 

a0,d6,d7 

; BUF_INC 



buf_get 

d6.d7 

; BUF — GET 



beq,s 

9sk2 

; if 0 then 

STOP 


buf _get 

d6,d7 

; BUF_GET 



bne.s 

9sk2 

; if 1 then 

VOID 


bsr 

SKIP4 




buf_rinc 

aQ.d6.d7 

; BUF_INC 


<?sk2 

buf_get 

d6.d7 

; BUF_GET 



beq.s 

9sk3 

; if 0 chen 

STOP 


buf_gec 

d6.d7 

; BUF_G£T 



bne. s 

93k3 

; if 1 chen 

VOID 


bar 

SKIP4 




buf_r±nc 

a0,d6.d7 

; BUF_INC 


9sk3 

buf^sret 

d6,d7 

; BUF_GET 



beq. 3 

Gnxt 

; if 0 Chen 

STOP 


buf_get 

d6.d7 

; BUF_GET 
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bne . s * 

Snxt 

i f 1 t hen VOID 


bar 

SKIP4 

. *nxt 
* 

rts 




ENDFUNC 



SENDSK 

I? FUNC 

EXPORT 



buf _rinc 

a0,d6 .d7 

; BUF_INC 


buf_get 

d6,d7 

; BUF GET 


bea. s 

9skl 



buf_gec 

d6,d7 

BUF GET 


beq, s 

dskO 



buf_gec 

d6,d7 

; BUF_GET 


beq. s 

9skl 

; if 0 then VOID 

<?skO 

bsr 

SKIP4 



buf.rinc 

aO, d6,d7 

; BUF.INC 

Qskl 

buf get 

d6 , d7 

V TT^ /%**de* 

; BUF_GET 


beq . s 


; if 0 the STOP 


buf __ge t 

abf a/ 

; BUF_GE7 


beq. s 

9SK2 

; if 0 then STTLLSEND 


buf _get 

d6,d7 

; BUF GET 


beq. a 

«sk3 

; if 0 then VOID 

<?sk2 

bsr 

SKIP4 



buf_rinc 

aO , d6 , d7 

; BUF_INC 

@sk3 

bu£_get 

d6, d7 

; BUF.GET 


beq. s 

(Jsk5 

; if 0 the STOP 


txif_get 

d6.d7 

; BUF_GET 


beq.B 

9sk4 

; i£ 0 then STILLSEND 


bu£_get 

d6.d7 

; BUF GET 


beq. s 

9sk5 

; if 0 then VOID 

9sk4 

bsr 

SKIP4 



buf_rinc 

a0.d6, d7 

; BUF_INC 

0sk5 

buf_get 

d6,d7 

: BUF.GET 


beq. s 

Gnxz 

; if 0 then STOP 


bu£_set 

d6,d7 

; BUF.GET 


beq. s 

@5k6 

; if 0 then STILLSEND 


buf.gec 

d6,d7 

; BUF.GET 


beq. s 

9nxc 

; if 0 chen VOID 

@sk6 

bar 

5KIP4 


enxt 

res 




ENDFUNC 




Octave Processing: 

DOSTILLO, DOSENDO, DOSTILL1, 
DOVOID1, DO ST ILL SEND 1 , DOSEND1 


DOSTILL0 FUNC EXPORT 
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bu ferine 
buf _gec 
bne . s 
res 

move . 1 

STILL 

XVALO 

addq. 1 

XVALO 

adda.w 

XVALO 

addq , 1 

XVALO 

bsr 
res 


a0,d6. d7 
66. d7 


M.d5.d3 

!a2) ,d3,a0.d6.d7.d0 
M.a2 

Ia2) ,d3.a0,d6,d7,d0 
d3,a2 

(a2) ,d3,a0,d«,d7.d0 
*4,a2 

<a2) ,d3,a0,d6.d7,d0 


STILLSKIP 


ENDFUNC 
DOSENDO FUNC EXPORT 


Scone 


buf _rinc 
buf_get 
bne .s 
rts 

move . 1 
buf_gec 
beq. w 
buf_ gee 
beq.w 

X DELTA 
addq. 1 
XDELTA 
adda . w 
XDELTA 
addq. 1 
XDELTA 

bsr 
rts 


a0.d6. d7 

d6.d7 

0cont 


al.a2 
d6 . d7 
9as 
d6.d7 
9vd 

#4.d5.d3 

<a2> .d3.a0.d6.d7,d0 
M,a2 

<a2j ,d3.a0,d6,d7,d0 
d5.a2 

ta2) ,d3.a0,d6,d7,d0 
M,a2 

<a2) ,d3,a0.d6,d7,d0 
SENDSKIP 


ess 


; ST ILLS END #4.d5,d3 


9vd 


XVAL1 
addq. 1 
XVALl 
adda .w 
XVALl 
addq. 1 
XVALl 

bsr 
res 

;V0ID 


<a2>,d3,a0,d6.d7,d0 
#4,a2 

(a2) .d3,a0,d6,d7,d0 
d5,a2 

(a2) ,d3,aO,d6,d7,dO 
M.*2 

(a2) ,d3,a0,d6,d7.d0 
SS.SKIP 

#4,d5 


buf_:nc 

BUF_GET 

if 1 Che STILL 


caddr-baddx 


caddr+=x_blk 
caddr**y_blk 
caddr*=x_blk 


BUF_IKC 
BUF_CET 

if 1 thea continue 

caddx s baddr 
BUF_CET 

if 0 then STILLSEND 
BOF.GET 

if 0 then VOID 


caddr^x^blk 
caddr*-y_blk 
caddr*sx_blk 


caddr+=x_blk 
caddr+=y_blk 
caddr*=x_blk 
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Gnexc 


clr.w 

(a2) 

addq. 1 

94, a2 

ClX . v 


adda. w 

d5,a2 

clr.w 

(a2) 

addq. 1 

ft A »1 

*4 . a2 

clr.w 

U2) 

res 


SNDHJNC 


macro 


DOSTILLl 

&addr 

txif _get 

d6.d7 

beq. w 

enext 

move. 1 

al,a2 

add.l 

&addr, a2 

STILL 

#4.d5.d4 

bsr 

STILLSKIP 

buf„rinc 

a0,d6,d7 
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caddr* ^x_blk 
caddr+=y_blk 
caddr*=x_blJc 


BUF_GET 

if 0 che STOP 

caddr=baddr 
caddr+=ackirs[l] 


BUF_mc 


@33 


Snext 


DOSTILL2 


endm 


macro 


DOVOIDl 

iaddr 

move . 1 

ai,a2 

add.l 

&addr,a2 

VOIP 

#4,dS 

endm 


macro 


DOSTILLSEND1 &addi 

buf__get 

d6.d7 

beq. w 

9next 

move . 1 

al.a2 

add.l 

&addr,a2 

buf_get 

d6,d7 

beq. s 

993 

VOID 

#4.d5 

bra 

Onext 

STILLSEND 

#4,d5,d4 

bar 

SS_SKIP 

buf_rinc 

aO, d6,d7 

endn 


FUNC 

EXPORT 


buf_riac 
buffet 
bne.s 
rca 


a0,d6.d7 

d6,d7 

9cost 


caddr?baddr 
cad£r+=addrs (1] 


BUF.GET 

if 0 the STOP " 
caddr*baddr 
. caddr+=addrs fl] 
BUF_GET 

if 0 than STILLSEND 


BUF_INC 


BUF_INC 
BUF.GET 
if X Che CONT 


Scont move.l 


al,a2 


caddr*baddr 
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swap d5 


buf_nr.c a0.d6.d7 ; BUF wc 

DC STILL* 4.d3) 

CO STILL! 8la3) 

DOSTILLi 12 1*3) 

DOSTILL1 16 (a3) 


swap <i 5 
exg d4.a5 
res 



macro 
DOS END 1 

iaddr 



buf_ge: 
beq. w 
move . 1 
add. 1 
buf.get 
beq. w 
buf_gec 
beq. w 

d6,d7 

9 next 

al,a2 

&addr,a2 

d6.d7 

9ss 

d6, d7 

«vd ] 

; BUF.GET 

; if 0 the STOP 

• caddr*baddr 

* caddi>=.addrs(I] 
BUF.GBT 

if C Chen STILLSEND 

buf_3ft 

if 0 then void 


SEMD 

bsr 

bra 

*4.d3,d4 

SQJDSKIP 
9rinc 


<?vd 

VOID 
bra 

*4.d5 
9 next 


93S 

9rinc 
9next 

STILLSEND 
bsr 

buf _rinc 

#4,d3.d4 

SS^SKIP 

a0.d6.a7 

BET. INC 


endm 


DO SEND 2 FUNC 


EXPORT 


£nxt 


bui.rinc 
buf _gec 
bne. s 
res 


a0,d6,d7 

d6,d7 

9conc 


BUT. INC 
BUF_GET 
if 1 the CONT 


Qcont 


move . 1 

add.l 

buf_get 

beq.w 

buf_get 

beq.w 


SEND 


al,a2 

(a3) ,a2 

d6,d7 

ess 

d6,d7 

9vd 


caddr*baddr 
caddx*=addrs ( 0 ] 
BOF.CET 

if 0 then STILLSEND 
BUF_GET 

if 0 then VOID 


SEND « 8 , dl , d3 

buf_rinc aC,d6,d7 . B UF INC 

DOSEND1 4<a3) ' 

DOS END 1 8U3) 
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DOSDJD1 
DOS END 1 
rts 


12 (a3) 
16 <a3) 


STILLSZND 


«8.dl,d3 


buf_rinc aO,d6,dT 
DOSTI1LSEMD1 4 <a3) " 
DOST ILLS END 1 8(a3) 
DOSTILLSEND1 12 la3) 
DOSTILLSEMD1 16(a3> 
rts 


3UF_INC 


VOID 


vd 


VOID 

nevoid 

DOVOIDl 
DOVOID1 
DOVOIDl 
res 


#8,dl 

4(a3) 
8{a3) 
12(a3) 
16<a3) 


ENDFUNC 

macro 
UVSTILLO 

Low_Pasa 

move. 1 
LPFSTILL 

Sub-band gh 

addq.l 
bsr 

Sub- band hg 

subq. 1 

add.l 

bsr 

Sub-band gg 

addq. 1 
bar 
sub. 1 
addq. 1 

encbn 


al. a2 

#4.d5.d2.d4 


#2,al 
DOSTILLO 


*2.al 
a4,al 
DOSTILLO 


#2, al 
DOSTILLO 
a4,al 
#6,al 


; caddx=baddr 


baddr+=2 (gh band) 


baddr-=2 (hh band) 
caddr+»l row (hg band) 


baddr+=2 (gg band) 

caddr-sl row (gh band) 
(2 + ) addr(0]«-*x_inc 


macro 
UVSENDO 


Lov_Pass 


buf_rinc 

buf_get 

beq.w 


a0,d6,d7 
d6.d7 
0 subs 


BUF_INC 
BUF_GET 

if 0 then process aubbamds 
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mbve.l . 
SEND 

Sub- band gh 

subs addq. 1 
bsr 

Sub-band he 

subq. 1 
add. 1 
bsr 

Sub-band gg 

addq . 1 
bar 
sub. 1 

endm 
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al - a2 . caddr=baddr 

*4.d5,d2 


#2.al 
30SENDO 


*2,al 
a4.al 
DOSENDO 


#2.al 
DOSENDO 
a4,al 
*6,al 


baddr-=2 (gh band) 


fcaddr-=2 fhh band) 
caddr+=l row (hg band) 


baddr+s2 (gg band) 

caddr- =1 row (gh band) 
(2*) addr(OJ-=x_inc 


Decoder functions: 
Klics2DlStill. Klics2DlSend 

* 


Klics2DlStill FUNC EXPORT 

• Klics2DlStiXK shore *dst, long sire^x. long size^y, long lpfbits, short 'norms 


PS 

RECORD 

8 

dst 

DS.L 

1 

size_x 

DS.L 

1 

size_y 

DS.L 

1 

lpfbits 

DS.L 

1 

norms 

DS.L 

1 

p:r 

DS.L 

1 

dara 

DS.L 

1 

bno 

DS.L 

^ 


ENDR 


LS 

RECORD 

0, 


DS.L 

1 

x,lin: 

DS.L 

1 

y.incO 

DS.L 

1 

y.mcl 

DS.L 

1 

y_lim 

DS.L 

1 

LSize 

EQU 



ENDR 



DECS 


x counter termination row_start< 

x termination increment 1 row 

y counter increment 4 rows- 

y counter increment 7 rows 

y counter termination area 


dO/dl - spare 
d2 
d3 
d4 
d5 
d6 
d7 


step 0 (HH) 
step 0 
lpfbits 
y_blJc 

data (bit 
bno (bit 


stream) 
pointer) 
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aO 

- per 

;bit buffer) 


al 

- baddr 

(block address) 


a2 

- catidr 

(coeff address) 


a3 

- x_lim 



a4 

- x_linc 



a5 

- y_incO 




link 

a6, #LS . LSize 

: locals 


movem. 1 

d4-d7/a3-a5. - (a7) 

; store registers 

Load Bit Buffer 



move . 1 

PS.data(a6) , aO 

- a0=&data 


move . 1 

(aO) ,d6 

dacas*aO 


move . 1 

PS.bno(a6) ,a0 

a0=&mask 


move . 1 

(aO) ,d7 

mask»*aO 


move . 1 

PS. per (a6> , aO 

aOziptr 


move . 1 

(aO) , aO 

aO=ptr 

Sec 

Up Block 

Counters 



9x 


Qlast 


move . 1 

PS.dst(a6).al 

; al= image 

move . 1 

PS. sise^x (ao ) , au 

; dO=size_x 

add.l 

d0,d0 

; in shorts 

move . 1 

dO. LS.x_linc(a6) 

; x_linc=l row 

move. 1 

P5.size_y ( a6 ) ,dl 

; dlasi2e_y 

mul* . w 

dO.dl 

; dl*=dO Urea) 

add.l 

al.dl 

; dl*- image 

move . 1 

dl, LS.y_lim(a6) 

; y_lim*dl 

move . 1 

d0.d2 

; d2=d0 (1 row) 

add.l 

dO,d0 

; d0*=2 (2 rows) 

move . 1 

d0.d5 

; yJblk.dO 

subq. 1 

#4,d3 

; y_blk-»x_blk 

add.l 

d0,d0 

; d0*»2 (4 rows) 

move . 1 

d0,LS.y_inc0(a6) 

; y_incO=dO 

add.l 

dO.dO 

; d0»*2 (8 rows) 

sub.l 

d2,d0 

• d0-*d2 n rows) 

move. 1 

d0,LS.y_incl(a6) 

■ y_incl»dO 

move. 1 

PS. norms (a6 ) , a2 

GetNorm pointer 

move. 1 

(a2) ,d2 

read normal 

move. 1 

4(a2).d3 

read normal 

move. 1 

PS. lpfbits (a6) ,d4 

read lpfbits 

move. 1 

LS.x_linc<a6) , a4 

read x_linc 

move. 1 

LS.y_inc0 (a6) , a5 

read y_incO 

move. 1 

a4 , a3 

x_lim*x_linc 

add.l 

al,a3 

x_lim+rbaddr 

UVSTILLO 


process UV block 0,0 

UVSTILLO 


process UV block 1,0 

add.l 

aS.al 1 

(2} addr[0]*=y_inc 

cxnp. 1 

LS.y_lim<a6) ,al 

(2+) addr(O) -limit? 

bge.v 

©last ; 

if half height 

sub.l 

#16, al 

pointer=blk<0, 1) 

UVSTILLO 


process UV block 0,1 

UVSTILLO 


process UV block 1.1 

sub. 1 

a5,al 

(2) addr(0N=y_inc 

cnp.l 

a3.al 

(2+) addr(0] -limit? 

blt.w 

•x 

(4) if less then loopx 

add.l 

LS.y_incl (a6) , al 

(2+) addr[0)*sy_lnc 

crap. 1 

LS.y_lim(a6),al 

(2*) addr [01 -limit? 

blt.w 

»y 

(4 J if less then loopy 
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Save Bit Buffer 


move . 1 

PS . data ( a6 ) , a2 

spare*Ldat a 

move . 1 

d6. <a2) 

update data 

move . 1 

PS.bnola6) , a2 

spare-ibno 

move . 1 

d7, (a2) 

update bno 

move - 1 

?S.ptr(a€) ,a2 

spaxes&pcr 

move . 1 

aO. ia2) 

update ptr 

movem. I 

(a7)+,d4-d7/a3-a5 

restore registers 

unlk 

a6 

remove locals 

res 


return 

END FUN C 




Klics2DlSend TUNC EXPORT 


Klics2DlSend( short *dst. long size_x. long size_y, short •norms, unsigned long 


PS 

RECORD 


8 



dst 

DS.L 


1 




DS.L 


1 



size_y 

DS.L 


1 



norms 

DS.L 


1 



per 

DS.L 





data 

DS.L 


1 



bno 

DS.L 


1 




ENDR 





IS 

RECORD 


0 , DECR 



x^lim 

DS.L 


1 

; x counter termination 

row_start+ 

x_linc 

DS.L 


1 

; x termination increment 

1 row 

y_inc0 

DS.L 


1 

; y counter increment 

4 rows 

y_incl 

DS.L 


1 

; y counter increment 

7 rows 


DS.L 


1 

; y counter termination 

area 

LSize 

EOU 


* 




ENDR 





• dO/dl - spare 




d2 

- step 0 

( KH ) 




d3 

- step 0 





d4 

- y_incO 





d5 

- y.bik 





d6 

- data 

(bit 

stream) 



d7 

- bno 

(bit 

pointer ) 



aO 

- ptr 

(bit 

buffer) 



al 

- baddr 

(block address) 



a2 

- caddr 

(coeff address) 



a3 

- x_lim 





a4 

- x_linc 





a5 

- y_lim 






link 


a6, #LS.LSize 

; locals 



rcovera. 1 


d4-d7/a3-a5.-(a7) 

; store registers 


* Load Bit Buffer 





move . 1 


PS.daca(a6) ,a0 

; aOn&data 



move . 1 


(aO) ,C6 

; data»*aO 



move. 1 


PS.bno(a6) , aO 

; aOa&xnask 



move . 1 


(a0).d7 

; mask»*aO 
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9y 


8x 


Glaat 
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aO=&ptr 
aOapcr 


a is image 
dO=size_x 
in shorts 
x_linc=l row 
dl=aize_y 
dl*=dO Urea) 
dl ♦ - image 
y_lim=dl 
d2-d0 (1 row) 
d0*=2 (2 rows) 
copy to d5 
subtract xjslk 
d0*=2 (4 rows) 
y_incO=dO 
d0*=2 (8 rows) 
d0-=d2 (7 rows) 
y_incl»dO 

CecNonn pointer 
read normal 
read normal 
read x.linc 
read y_incO 
read y — lim 

x^limax^ine 
x^lim* »baddr 
proceee ov block 0.0 
process uv block 1,0 
(2) addr (0]+*y_inc 
(2) addr (0] -limit? 
if half -height 
pointar=blk(0. 1) 
process UV block, J). 1 
process UV block 1,1 
(2) addr i0)+«y_inc 

12) addr TO]- limit? 

(4) if loss then loopX 

(2+i addr [0] *=y_inc 

(2) addrtD] -limit? 

(4) if less then loopY 


rrcvf . 1 

PS nt *- ( x (\ \ art 


move . 1 

( aO ) , a0 


Up Block 

Cftunf m r k 


rrove . 1 



move . 1 

* j . s ize_x t at) ) .au 


add. 1 

dO , dO 


move *. 

au , Lo . x_* mc f ao ) 


move . 1 



mu 1 s . w 

d0,dl 


add. 1 

al,dl 


move . 1 

dl . LS v 1 im 1 j%6 1 


move . 1 

dO , d2 


add. 1 

dO, dO 


move . 1 

dO, d5 


3UOQ. 1 



add.l 

d0,d0 


move. 1 

dO, LS.y_incO(a6) 


OUU . 1 

dO. dO 


sub. 1 

d2, dO 


move . 1 

dO,LS.y_incl(a6) 


move . 1 

PS.norms(a6) ,&2 

; 

move . 1 

(&2),d2 

I 

ruove . 1 

4(a2) .d3 

• * 

move . 1 

LS.x_linc(a6) ,a f 4 

; 

move. 1 

LS.y_incO(a6) ,d4 

• 

move. 1 

LS.y_limU6i.a5 


move. 1 

a4,a3 

. 

add.l 

al,*3 

; 

UVSENDO 


; 

uvsoroo 


; 

add.l 

d4,al 

; 

cmp . 1 

a5,al 


bge.w 

aiast 

i 

sub.l 

#16, al 


UVSEMDO 



UVSENDO 



sub. 1 

d4,al 


cmp. 1 

a3,al 


bit . w 

9-x 


add.l 

LS. y_incl(a6) ,al 


cmp . 1 

aS.al 


bit -v 

»y 



Save Bit Buffer 


move.l 

PS.data(a6) ,a2 

move , 1 

d6, (a2j 

move . 1 

PS.bno(a6) ,a2 

move . 1 

d7, <a2) 

move.l 

PS. ptr(a6) ,a2 

move . 1 

a0,(a2) 

movent . 1 

(a7)+,d4-d7/ 0 3-a5 

unlk 

a6 

rts 


ENDFUKC 



spare*&data 
update data 
sparesubno 
update tono 
spare«4ptr 
update ptr 

restore registers 
remove locals 
return 
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y.liCS3D2St ill * F'JHC EXPORT 

Kl ics3D2St il 1 ( short *dst. Icr.g size.x, long size_y, long lpftics, short 'norma 


PS 

RECORD 

8 




est 

DS. 

L 

I 




s ize_x 

DS . 


1 




si*e_y 

DS . 

L 

1 




ipfbits 

DS . 


1 




norrr.s 

DS. 

L 

1 




per 

DS. 

L 

1 




data 

DS. 

L 

1 




tnc 

DS. 

r 

1 




sub_cab 

DS. 

L 

1 




• 

ENDR 





LS ■ 

RECORD 

0 . DECR 




y.blkO 

DS. 

L 

1 

y 

inter-block increment 

2 rows - 4 

y.blkl 

DS. 

L 

1 

; y 

inter-block increment 

4 rows - 8 

x_inc 

DS. 

L 

1 

; x 

counter increment 

16 

x_lim 

DS. 

L 

1 

; x 

counter termination 

row_start+ 

x.linc 

DS. 

L 

1 

; x 

termination increment 

1 row 

y_m: 

DS. 

L 

1 

; y 

counter increment 

7 rows 

y_lim 

DS. 

L 

1 

; y 

counter termination 

area 

uSice 

EQU 

» 





ENDR 






dO/dl - spare 


d2 

- seep 2HK 


d3 

- atep i 



d4 

- seep 0/lpfbits 


d5 

- y_blkO,y_blkl 


d6 

- data 

(bit stream) 


d7 

- bno 

{bit pointer) 


aO 

- per 

(bit buffer) 


al 

- baddr 

(block address) 


a2 

- caddr 

(coeff address) 


aJ 

- addrs 

(tree addresses) 


a4 

- x__lira 

(x counter termination) 


a5 

- lpfbits/scep 0 



link 

a6,#LS.LSize 

; locals 


movem. 1 

d4-d7/a3-a5. - (a7) 

; store registers 

Load Bit Butter 



move. 1 

PS. data (a6) .aC 

- aO=&data 


move . 1 

(aO) ,d6 

■ datacaO 


move . 1 

PS. bno (a6) ,a0 

aO=&mask 


move. 1 

(aO) ,d7 

mask» *a0 


move. 1 

PS.ptr la6) ,a0 

aO=&ptr 


move. 1 

(aO),aO 

aO-sptr 

Set 

Op Block 

Counters 



move. 1 

PS.dst (a6) ,al 

al= image 


move. 1 

PS.size_x(a6) , dO ; 

dO*size_x 


move. 1 

#16, LS.x_inc(a6) 

save x^inc 


add.l 

dO.dO 

in shorts 


move. 1 

dO, LS.x_linc (a6) 

x_llnc=l row 


move . 1 

PS.size_y(a6) ,dl 

dlasize^y 


muls.w 

dO.dl 

dl-=.dO (area) 
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add. I 
move. 1 
move. 1 
add.! 
move. 1 
subq. 1 
move. 1 
add. i 
add. 1 
move. 1 
subq. I 
move . 1 
add.l 
nove . 1 

move. 1 
move . 1 
move.l 
move . 1 
move.l 
swap 
move. 1 
move.w 
move. 1 

move. 1 
add.l 


Qx 


Lov_Pass 

move.l 
LPFSTIU. 

Sub -band gh 

bar 
add.l 

Sub- band hg 

bsr 
add.l 

Sub-band gg 

bsr 
sub. 1 


al.dl 

dl.LS.y_limfa6> 

d0,d2 

dO, dO 

d0,d5 

• 4,d5 

d5. LS.y.blkO (a6) 

d0,d2 

dO.dO 

d0.d4 

#8,d4 

d4. LS.y_blkl (a6) 
d2.d0 

do, LS.y_inc(a6) 

PS. norms (a6},a2 
(a2) ,d2 
4(a2) ,d3 
8(a2) ,a5 

PS.lpfbits(a6),d4 
d5 

LS.y.blkl(a6» ,d0 
d0,d5 

PS.sub„tab(a6) ,a3 

LS.x_linc<a6) ,*4 
al,a4 


#8,d5.d2,d4 


add.l 
cxnp. l 
blt.w 
add.l 
cmp . 1 
blt.w 

Save Bit Buffer 

Pend move . 1 
move.l 
move.l 
move.l 
move.l 
mov«. 1 


DOST ILL 2 
#20, a3 


DOSTILL2 
*20,a3 


DOSTILL2 
#40. a3 

#16. al 

a4,al 

@x 

LS.y_inc(a6),al 
LS-y_linWa6) ,al 


PS.data(a6) ,a2 
d6 , (a2) 
PS.bno(a6),a2 
d7, <a2) 
PS.ptr<a6),a2 
aO, (a2) 


dl + = image 

■y_lim=dl 
d2=d0 (1 row) 
d0*=2 (2 rows) 
copy co d5 

y.blk: subtract x_blk 
save y_blk0 
&2+=d0 (3 rows ) 
d0*s2 (4 rows) 
copy co d5 

y_blk: subtract x_blk 
save y_bikl 
d0*=d2 (7 rows) 
y_inc=d0 

GetNorm pointer 
read normal 
read normal 1 
read normal 0 
read Ipfbits 
y_blk=00XX 
read yjblkl 
d5*yjblk0/l 
a3=addrs 

x_lim»x_linc 
x_l lm+abaddr 


; caddrsbaddr 


(2) addr f 0]+*x_inc 
(2) addr (0) -limit? 
(4) if leas then loopX 
<2 + ) addr (0)+»y_inc 
(2+) addrtOJ -limit? 
(4) if less chen loopY 


spares&data 
update data 
spare= tbno 
update bno 
spaxec&ptr 
uodate ptr 
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-novem. l 

unlk 

res 


la7) *.d4-d7/a3 -a: 
a6 


restore registers 
remove iccals 
return 


KUcsi22Send FUNC EXPORT 


Klics3D2Send(shorc *dst, long size.x, long size^y, short *norms, unsigned long 


PS 

RECORD 

8 




dst 

DS. 

L 

1 




size_x 

DS. 

u 

1 




sne_y 

DS. 

L 

1 




norms 

DS. 

L 

1 




per 

DS 

L 

1 




data 

DS. 

L 

1 




bno 

DS, 

L 

1 




sub.tab 

DS. 

L 

1 





ENDR 





LS 

RECORD 

0,DECR 




y_blkO 

DS. 

L 

1 

; y 

inter-block increment 

2 rowa - 4 

y.blkl 

DS. 

L 

1 

; y 

in tor -block increment 

4 rowa - 8 

x_mc 

DS. 

L 

1 

; x 

counter increment 

16 

x_lim 

DS. 

L 

1 

; x 

counter termination 

row_start* 

x_l inc 

DS. 

L 

1 

; x 

termination increment 

1 row 

y.inc 

DS. 

L 

1 

; y 

counter increment 

7 rows 

y_lim 

DS. 

L 

1 

; y 

counter termination 

area 

LSize 

EQU 

• 





ENDR 






dO 

- spare 


dl 

- y_blkl 


d2 

- step 2HH 

d3 

- step 1 


d4 

- step 0 


d5 

- y^blkO 


d6 

- data 

(bit stream) 

d7 

- bno 

(bit pointer) 

aO 

- ptx 

(bit buffer) 

al 

- baddr 

(block address) 

a2 

- caddr 

(coeff address) 

a3 

- addrs 

(tree addresses) 

a4 

- x_lim 

(x counter termination) 


link a6,*LS. LSize ; locals 

movem.l d4-d7/a3-a5, - (a7 ) ; store registers 


Load Bit Buffer 


move.l PS. data (a6) . aO 

move.l (a0),d6 

move.l PS. bno <a6 ) , aO 

move.l <a0),d7 

move.l PS.ptr (a6) , aO 

move.l (aO),aO 

Set Up Block Counters 

move.l PS. dst la6 ) -al 


aOs&data 

data-x*aO 

aOs&mask 

mask«*aO 

aO^tptr 

aO=ptr 


al = image 
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move. 1 
move. 1 
add. 1 
move . i 
move . 1 
muls.w 
add. 1 
move . 1 
move . 1 
add.l 
move . 1 
subq. 1 
move . 1 
add.l 
add.l 
move. 1 
subq. 1 
move . 1 
add.l 
move.l 

move.l 
move . 1 
move . 1 . 
move. 1 
move . 1 
move.l 


PS. size_x< a6 ) . dO 
•16 , LS .x.inc <a6 ) 
dO,dO 

dO. LS.x_lmc (a6> 
PS . size_y ( a6 ) . dl 
dO.dl 
al.dl 

dl.LS.y_lijn(a6> 

d0,d2 

dO,dO 

dO.dS 

#4,d5 

d5,LS.y_blkO<a6) 

d0.d2 

dO.dO 

d0,d4 

#8.d4 

d4,LS.y_blkl<a6) 
d2,d0 

dO, LS.y_inc (a6) 

PS. norms (a6) , a2 
(a2) .02 
4(a2),<i3 
8<a2) ,d4 

LS.y_bLklta6) . dl 
PS . 3ub_tab ( a6 ) , a3 


dO-saze_x 
save x_inc 
in shcrts 
x_linc=l row 
dl-aize_y 
dl"»dO (area) 
dl+= image 
y_lim=dl 
d2=d0 (1 row) 
d0*-2 (2 rows) 
copy to d5 

y_blk: subtract x_blk 
save y_blkO 
d2+=d0 (3 rows) 
d0* = 2 (4 rows) 
copy co d5 

y_blk: subtract x_blk 
save y_blkl 
d0f-d2 (7 rows) 
y_incrdO 

GetNorm pointer 
read normal 
read normal 1 
read normal 0 
read y_blkl 
a3=addxs 


0X 


move. 1 
add.l 

Low_Pas» 

buf_rinc 

bu£__get 

beq.w 

move.l 

send 


LS.x_linc(a6) , a4 
al, a4 


a0,d6,d7 
d6,d7 
Osuba 
al, a2 
#8,dl,d2 


x_lim»x_linc 
x_lixn+*baddr 


BOF_INC 
BUF_GET 

if 0 then process subbanda 
caddr*baddr 


Sub-bajid gh 


Ssubs 


bsr 
add.l 


DOS END 2 
#20. a3 


Sub -band hg 

bsr 
add.l 


DOSEND2 
#20. a3 


Sub -band gg 

bsr 
aub.l 

add.l 
cmp . 1 
blt.w 
add.l 
cmp, 1 
blt.w 


DO SEND 2 
#40, a3 

#16, al 

a4,al 

ax 

LS.y_inc Ja6) 
LS.y_lijn(a6) 
9y 


al 
al 


(2) addr[0]+*x_inc 
(2) addr (01 -limit? 
(4) if leas then loopx 
(2+) addrfO]*sy_inc 
(2+) addr(0] -limit? 
(4) if leas then loopY 


Save Bit Buffer 
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rtfive . 1 

move - X 

move . 1 
move . 1 
move . 1 
move . 1 

PS . daca ( a 6 ) . &2 

q6 , (a2 ) 

PS.bno(a6) , a2 

d7,(a2> 

PS .ptrjao ) .a2 

aO, (a2) 

spare^idaca 
update daca 
spare=£bno 
update bno 
spare^&pcr 
updace per 

movem. 1 

unlit 

res 

(a7)*,d4-d7/a3-a5 
a6 

restore registers 
remove locals 
return 

ENDFUNC 



END 
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• « Copyright 1993 KLICS Limited 

• All rights reserved. 
♦ 

• Written by: Adrian Lewis 


• importing raw Klics binary files 

* Stand-alone version 

* include 'BitsS.h* 

* include 'Klics. h m 

* include 'KlicsHeader. h- 

cypedef char Boolean; 

/•If bool true the negate value •/ 

•define negif (bool, value) Ubool) ?- (value) : (value) ) 
extern void HaarBackwardt > ; 

extern void Daub4Bacicward ( short *data.int size(2J,ixit oct_src) ; 

extern void TestTopBackvardf short *data.int size[2],int oct_src); 

extern void TestBackwerd( short 'data.inc size(2J,int oct_srcj ; 

extern void KLICSDCHANNEL < short -dst. long occs, lono si2e_x, long size v, loa 

/• Use the bit level file macros <Bits2.h) */ 

/" bur.use; •/ 


/• Huffman decode a block •/ 
#define Huf £DecLev< lev, buf ) \ 

lev ( 0 ] sHuff Decode (buf ) t \ 

lev (l]=Huff Decode (buf ); \ 

l«v(2]«HuffDecode(buf ); \ 

lev (3 ] =Huf f Decode (buf ) ; 

/* Fixed length decode block of integers V 
#define IntDecLevdev, lpf_bits,buf ) \ 
levf01slntDecodedpx_bits,buf ) ; \ 
levdjsintDecodedpf Jbits.buf ) ; \ 
lev(2)=IntDecode(lpf Jbits,buf ) ; \ 
lev ( 3 ] =IntDecode ( lpf Jbit s , buf ) ; 


/* Reverse quantize difference block »/ 

•define RevQntDeita (new, old, lev, shift ) \ 

new(0]rold(OJ*(levfO]«shift) ♦ ( lev(O) ! =0?negif ( levtO]<0. ( l<<eshif t ) -1>>1) :0> ; \ 
newCl) =old(U*(levtl)«shilt)* dev(l] ! »0?negiC ( lev(l) <0, (l«shif t) -l»l) : 0) ; \ 
new{2) =old[2)+(lev{2]«shift)*(lev(2] !-=0?negif ( lev{2] <0, (!<<shift } -1»1) :0) ; \ 
new(3] =old[3J*(lev(3]«ahift)*(lev(3] ! =0?negif ( lev(3 J<0, ( l<<shif t ) -1»1) : 0) ; 

/• Reverse quantize block */ 

#define RevQnt (new, lev, shift ) \ 

new(0J = (levf O]«shift) + (lev(0) ! »0?negif (levf 0I<0, (Upshift) -1»1) :0) ; \ 
new(l)»(lev(l]«shift)*(levfl) j *0 ?negi f ( lev f 1 ] < 0 , ( l«shif c ) -1»1 ) :0); \ 
new(2]-(lev(2)«shift) + (lev(2J ! =0?negif ( lev(2] <0, ( l«shift ) -1»1) :0) ; \ 
new(3Ja(lev(3]«Bhift) + (lev[3] i -0?negif ; lev (3 ) <0, ( l«shif t ) -1»1) ; 0) ; 

^define Re vQnt LPF (new, lev, shift) \ 

new [ON (lev(0]<<shif t)*< ( l«shift ) -1»1> ; \ 

new(l] 3 (l«v(l]«shift)+( U«shift > -1»1> ; \ 

new(2] = devf2 J«shift)*( f !<<shif t ) -1»1) ; \ 
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new[ 3 ) *rtev(3 } <<zhit t ) -> ( ( U<shi£c . - 1>>1> ; 
/\ Read a difference block and update memory •/ 

■ define DoXf er Delta ( addr . eld. new . lev . dst . shift . mode . oc: . rmode . buf ) \ 
Huf f DecLev ( lev, bur ) ; \ 
Revcnt Delta (new, old. lev. shift ) \ 
PutData ( addr . new, dst > ; \ 
.-node (cct]iocz- = 0 ?M_STO P : nmode ; 

/• Read a block and update memory */ 

*de f ine DoX f er t addr, new, lev, dst , shi f t . mcde , oct . nmode , buf i \ 
Huf f DecLev ( lev. buf ) ; \ 
RevQnt (new, lev, shif t) \ 
PutData (addr , new, dst ) ; \ 
mode (Oct] =oct3sO?M_STOP: nmode; 

/* Function Name: IntDecode 

• Description: Read a integer from bit file 
Arguments: bits - bits/ integer now signed 

* Returns: integer value 
*/ 

shore IntDecodei short bits, Buf buf) 

{ 

int i. levsO, mask=l, 

Boolean sign; 

/* Hardware compatatble version •/ 
buf_nnc(buf J ; 
sign*buf_get <buf) ; 
for(i=0;icbits-l; i+*) { 
buf_rinc (buf ) ; 

if (buf_get (buf ) ) lev I- mask; 
mask <cs 1; 

) 

if (sign) lev= -lev; 
return ( lev) ; 


/* Function Name: Huff Decode 
• Description: Read a Huffman coded integer from bit file 
Returns: integer value 

•/ 

short Huff Decode (Buf buf) 


short lev«0, i; 
Boolean neg; 

/* Hardware compatatble version •/ 

buf _rinc(buf ) 

if (buf.gec (buf ) ) { 

buf_rinc (buf ) ; 

neg=buf_get (buf ) ; 

do ( 

tuf_rirx {buf ) ; 
lev++ ; 

) while (levc? &t ■ (buf.get (buf ) ) ) ; 
if (Mbuf.getlbuf))) ( 

for(lev=0, i=0; ic7;i++) { 

1qv<<*1; 

buf.rincfbuf ) ; 
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=■* if ( buf _get (buf ) J lev* 

) 

} 

if (neg) lev= -lev; 

) 

return ( lev) • 


Function Name: KlicsDChannei 

Description: Decode a channel of image 

Argument s : dst - destination memory (and old for videos) 

octs, size - octaves of decomposition and image dimensions 

normals - HVS weighted normals 

lpf_bits - no of bits for LPF integer (image coding only) 


void KlicsDecY (short *dst, int octs, int size(2], KlicsFrameHeader *frmh, 
KlicsSeqHeader »s#<jh, Buf buf) 

{ 

int oct, mask, x, y, sub, step=2<<octs, blk(4], mode [4 J, base_moda= ( frmh-> 
Blk addr, new, old, lev; 

for(ysO;y<size[l] ;y+astep) 

£or(x=0;x<3ize(0) ;x+*step) 

f or (sub=0; sufcx* ; sub**) ( 

mode [ oc t * oct s - 1 j ■base_mode ; 

if (sub=«0) mod*){oct=octa-l] I » M_LPF; 

masks2<<oct ; 

do { 

CetAddr ( addr, x,y, sub, oct . aixe, mask) ; 
switch ( mode { oct J ) ( 
case M_VOID: 

GetData (addr, old, dst ) ? 
if (BlkZero(old) ) mode {oct ]=M_STOP; 
else ( Do2ero( addr, dst. mode, oct ) ; ) 
break; 
case M„SEND|H_STILL: 
buf^rinc (buf) t 
if (buf_get (buf ) ) ( 
buf_rinc(buf ) ; 
if <buf_get (buf ) ) ( 

DoZero ( addr , dst , mode , oct ) ; 
) else { 

DoXfer (addr, new, lev. dst . frmh->quanti2er( octs -oct) , mode , oct , M_S* 

) 

) else 

mode (oct ]=M_STOP: 
break; 
case M_SEND: 

buf_rinc<buf ) ; 
if <buf_get<buf )) ( 
buf_rinc<buf ) ; 
if (buf .get (buf ) ) ( 
buf_rinc (buf ) ; 
if <buf_get (buf ) i ( 

GetData (addr, old, dst) ; 

DoXf erDelta (addr , old, new, lev, dst , f rroh->quantiier (oct s-oct] 
) else { 

DoZero (addr , dst , mode, oct ) ; 

) 

) else { 

DoXfer (addr, new, lev. dst . f rmb-xjuantizer (octs -oct ] ,mode, oct,H_S: 
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) 

) else 

mode [oct] ^M.STOP.- 
break; 
ca3€ M_STILL : 

buf_nnc (buf ) ; 

if :buf_get ( buf ) ) { DoXf er< addr, new. lev, dst , f rmh-^quanc i ler ( octs -occ J , : 

else raode(oct ] =M_S?OP; 

break ; 
case M_LPF I M_ST I LL : 

IntDecLev ( lev, 3eqh->preci3ion- f nnh->quancizer {0] , buf ) ; 

RevQntLPF (new, lev, f rmh->quant lzer ( 0) ) ; 

PutData ( addx , new, dst J : 

mode [oct ] »M_QUIT; 

break; 
case M_LPFIM_SEND: 

buf_rinc (buf ) ; 

if (buf.get (buf ) ) { 

GetData (addr, old, dst ) ; 
HuffDecLev<lev,buf ) ; 

RevQntDelca (new, old. lev, f rmh->Quanc izer (0] i ; 
PutData (addr. new, dst ) ; 

) 

modetoct] =M_QUIT; 
break; 

I 

swi cch ( mode ( oct ] ) ( 
case M_STOP: 

StopCounters (mode, oct, mask, blk.x.y . octs ) ; 

break: 
case M_0UIT: 

break; 
default: 

DownCount er 3 ( mode . oct , mask, blk ) ; 
break; 

) 

} while < model oct ] !=M_QUIT); 

V 

> 

void KlicsDecUVI short *dst, int occs, int size (2), KlicaFrameHeader *£rmh, 
KlicsSeqHeader *seqh, Buf buf) 

( 

int oct, mask, x, y, X, Y, sub, step«4«octs. blk[4), mode(4|, base_mode=i 
Blk addr, new, old, lev; 

for(Y=0;Y<size(l) ;Y*=stepi 

f or(X.O;Xone [0J ;X*rstep) 

for (y*Y;y<size(lj &fc y<Y+seep;y+»step»l ) 

f or (x=X;x<siie (0 j && x<X*step;x*=step»l ) 

£or(sub=0;sub<4;sub++) { 

mode [ oc t »oc t s - 1 } » ba s e_mode ; 

if (sub«=0) mode (oct socts-l] l« M_LPF; 

mask»2<<oct; 

do ( 

GetAddr (addr,*, y, sub, oct . size. mask) ,- 
switch (mode (oct ) ) { 
case M..VOID: 

GetData (addr, old, dst ) ; 

if <Bl)aero(old) ) mode ( oct 1 -M_STOP; 

elsa ( DoZero (addr, dst, mode, oct ) ; ) 

break; 
case M_SENDIM_STILL: 
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buc_rinctbu£) ; 

if (buf_gec {buf) ) { 

buf_rinc(bu£) ; 

if (bu£_get (buf ) ) { 

Dozero < addr , dsc .mode. occ) ; 

> else ( 

DoXZez (addr, new, lev ( d3t ( trmh- >quanti zer [octs-cct ) .mode- occ . H S 

) 

) else 

mode ( occ 1 =M_ STOP; 
break; 
case M.SEND: 

buf_nnc(buf > ; 
if fbuf_get (buf) ) { 
buf_rinc(buf ) ; 
if ;bu£_get(buf >) { 
bu ferine (buf ) ; 
if <buf_gec(buf)) { 

GetData (addr, old, dst ) ; 

DoXf arDeita(addr, old, new. lev,dst , f rmh->quanci2er (octs-oct J 
) else ( 

Dote ro ( addr , dsc, mode , occ J ; 

) 

) else < 

DoXfer (addr . new. lev. dsc, f rmh-xjuaritizer [ occ s -occ J ,mode, oct.M_S 

} 

) else 

mode (oct IsM_STOP; 
b^eak; 
case M_ STILL: 

buf_rinc (buf ) ; 

if (buf_aet (buf ) ) ( DoXfer (addr, new, lev, dst, frnvh->quanci2er [occ s-oct) 

else modeloct JaM.STOP.- 
break; 
case M_LPF IM_STILL: 

intDecLevdev, 3eqh->precision-f rmh->quantizer (0) ,buf ) ; 

RevQntLFF(new, lev, f rmh->quantizer [ 0) ) ; 

Put Data < addr , new , dst ) ; 

mode ( oct ] =M_QUIT ; 

break ; 
case M_LPF I M_SEND: 

buf_rinc(buf ) ; 

if (buf_get (buf ) ) { 

GetDaca(addx.old.dst) ; 
HuffDecLev(lev.buf) ; 

RevOncDelta (new, old, lev, £rmh-»quantizer [0] ) ; 
Put Data ( addr , new , dst ) ; 

} 

mode { occ ) »M_QUIT; 
break; 

) 

switch (mode (oct ] ) ( 
case M_STOP: 

StopCounters (mode, oct , mask, blk, x. y , oct s ) ; 

break; 
case H_QUIT: 

break; 
default : 

DownCounc era (mode, oct, mask, blk) ; 
break ; 

> 

) while <mode(oct]!*H_OOTT); 

> 
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Function Name: KiicsDecode 

Description: Decode a trame co Y'JV (de) transformed image 
Arguments: src - destination result 

dst - transformed destination memory (and eld for videos) 
Returns: whether this frame was shipped 


extern 

void 

KLCOPY ( short 'dst. 

short 

extern 

void 

KLHALF ( short "dst. 

short 

extern 

void 

KLICS3D2SEND< short 

•dst , 

extern 

void 

KLICS2D1STILL I short 

•dst , 

extern 

void 

KLICS3D2 STILL ( short 

*dst , 

extern 

void 

KLICS2D1SEND1 short 

•dst , 

•define 

flag. 

.tree 0x1 


*def ine 

fiag_vave 0x2 



* src, long area) ; 

'src, longsize_0. long si2«_l); 

long size_x, long size_y, short norms[4)( 
long size_x, long size_y, long lpfbits, 
long size_x. long size_y, long Ipfbits, 

long size_x, long size_y. short norms{4][ 


void KlicsDecodef short *src(3], short •datOI. KlicsSeqHeader -se^n, KlicsFrameH 

long channel, i; 
short norms (4 J [2] ; 
unsigned long syncl, sync2; 

for (io0;i<4;i**) f 

norms [ij {0]« { l<<f rmh->quantizer ( i) -1) -1; 
norms [i ] ( l]»f rmh->OMant izer ( i] ; 

) 

buf_rinit (bu£) ; 

if (0!={flags*flag_tree> > { 

syncl=GetTimerValue (isyncl J ; 

for(cnannel=0;chann«l<s«o^i->channels;chanjiel*+) { 

int si zef2) = {seo;h-> sequencers ize{0] >> ( channel ==0?0:se<jh->sub_3ainpl 
seqh->s«CAience_size(l]>>(chamiel»»0?0:3e<3h->surj_sajnple[l] ) 
tree_size(2) = (3ize{0]»3cale(0] , sized! >>scal«(0] ) , 
oct s»s«qh->oct aves (channel»*0?0 : lh* 

wifdef HQ 

if t0!M£rTnh->flag3&KFH_INTRA) > 

KL2ERO(dst [channel] , tree.size [0] *tree_size [ 1 1 ) ; 
/* KLlcSDCHANNEL(dscf channel] ,octs-l, tre«_size{0] , txee_siie{l] , (long) (sea 

if (channei»»0) KlicsDecY (dst [channel ]. octs , tree_size, frmh, seqh, buf ) ; 
else KlicsDecUVl dst {channel] , octs, tree_size . f nun. seqh,bur ) ; 

#else 

long sub_cab(15] *(4, 2, 10, 2+8»tree_size [0] , 10+8»tree_size (0] , 

4*tree_size(0] , 2 *tree_size f 0] . 8*2 *t ree_size [0] , 10*tree_siz 
4*4 , tree_si2e(0) . 2*2*tree_size{ 0) , 10+2*tree_size [0 ) , 2*10* t 

if (0! Wfrmh->flags*KTH_lNTRA> ) ( 

KLZERO (dst {channel J , tree_size{0] •cree_size[l J ) ; 
if (octs«3) 

KLICS3D2STILLidst {channel] , tre«_size CO) , creeps ize { 1 ] , (long) (se- 
els* 

KLICS2D1STILL (dst (channel) . tree_size { 0] , tree_size [ 1 ] , (long) (se- 

} else 

if (OCt3as3) 

KLICS3D2S£ND<dst {channel] , tree_size{0) , cree_size[l ] , tnorms ( &bu 

else 

KLICS2DlSEND(dst [channel] . tree sizef 0 ) . tree.sized] ,&norms*&bu 

*endif 

) 

sync2xGetTimerValue(&sync2) ; 
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* tree?"sync2-syncl; 

} 

if iOi a ; f lags&f lag_wave) ) < 

sync! *Cet Time rvalue {& sync 1 ) ; 

for ( channel =0 ; channel* seqh->channel a: channel { 

int s ize [21 = (seqh-> sequencers :re(0l >> ( channel==0?0 : seqh->sub_sampl 
aeqh->sequence_si2e f 1 ! >> I channe 1==0?0 : seqh- >sub_sajnple ( 1 ] ) 
wave_size[2]»{size(0]>>scale(l) , size [ 1) >>scale [ 1 ] ) , 
occs=seqh->octaves I channel 3=0 70: 1] ; 

svicchf seqh->wavelet ) ( 
case WT_Haar: 

if <scale(l]>tcale[0)) 

KLHALF (dst (channel J , sre [channel J , wave.sizefO] . wavers ize ( 1 ] ) ; 

else 

KLCOPY (dst [channel ) , sre [channel J . wave.size [0) *vave_size { 1 J J ; 
HaarBackward(src [channel ] ,wave.s ize, octs -scaled] ) ; 
break; 
case WT_Daub4 : 

if <scale(0]«0) { 

if <scale[l)>scale[Q]) 

KLHALF [dst [channel ],src( channel I , wave_si2e (0 J , vave.s ize 1 1 ] 

else 

KLrCOFY (dsc ( channe 1 ] , s r c [ channe 1 1 , wavers i z e [ 0 ] • wa ve„ s i 2 e [ 1 ] 
Daub4 Backward ( sre [channel ] , wavers ize . occ a -scale (1] ) ; 
) else 

if <channel**0> ( 

KLCOPY tdac [channel ] , arc (channel] . wave.sixe { 0 ] •vave.size { 1 } 
B«ckward3511 ( sre [channel J , wave.size. octs-scale(l ] ) ; 

TOPBWD<dst [channel] , sre [channel ) . vave.size [0] . wave.size ( 1 ] 

break; 

) 

) 

sync2sGetTimerValue<fiisync2) ; 
♦wave - sync 2 -sync 1 ; 

) 

) 
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* © Copyright 1993 KLICS Limited 
" All rights reserved. 

• written by: Adrian Lewis 


# Klxcs Codec 

* / 

•include * ImageCodec .h* 
•include <FixMath.h> 
^include <Errors.h> 
* include <Packages.h> 

#ifde£ PERFORMANCE 
•include <Per£.h> 

extern TP2Perf Globals ThePClobals; 
» end if 


nfdef DEBUG 

♦define DebugMsgtvali DebugStr (val ) 
•else 

•define DebugMsg (val) 
•end if 


•define wr.Haar 0 
♦define WT_Daub4 1 

•define None 0 

^define UseB 1 

*define Usel6 2 

tfdafine Use32 3 

•define UseF32 4 

/• Version information •/ 

•define KLICS_CODEC_REV 1 

•define codeclnterf aceVersion 1 /* high word returned in component Getversion 

•define klicsCodec Format Name 'Klics* 
•define kl ic sC ode cFormat Type 'Jclic 

pascal Component Re suit 

KlicsCodec (Component Parameters *params,char **storage); 

pascal Component Re suit 

K LOpenC ode c( Component Instance self); 

pascal ComponentResult 

KLCloseCodect Handle storage, Component Instance self); 

pascal ComponentResult 
KLCanDoSelector (short selector); 

pascal ComponentResult 
KLGetVersiont) ; 

pascal ComponentResult 

KLGet Codec Tnfo t Hanrll* « tor acre. Codec Info *in£o>; 
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pascal Component Re suit 

KLGetMaxCompressionSize (Handle storage. PixMapHandle src, const Rect * srcRect . short • 
CodecQ quality, long "size); 

pascal ComponentResult 

KLGetCompressedlinageSize (Handle storage, ImageDescript ionHandle desc, Ptr data, long . 
DataProcRecordPtr dataProc . long *size); 

pascal Component Result 

KLPreCompress ( Handle storage, register CodecCompressParama *p) ; 
pascal long 

KLPreDecompress (Handle storage, register CodecDecorapressParams *p) ; 
pascal long 

KLBandDecompress (Handle storage, register CodecDecompressParams *p) ; 
pascal long 

KLBandCon^pr ess (Handle storage, register CodecCamp res s Pa rams «p) ; 
pascal Component Result 

KLCetCompressionTime I Handle storage. Pi xMapHandle src, const Rect *srcRect, short dep 
CodecQ *spatialQuality,CodecQ * temporal Qua I icy, unsigned long *time); 

/• Function: KlicsCodec 
* Descript ion: KlicsCodec main despatcher 
•/ 

ftifdef DECODER 

pascal ComponentResult 

KlicsDecoder (Component Parameters *params,char ** storage) 
♦else 

frifdef ENCODER 

pascal Component Result 

KlicsEncoder (Component Parameter s *params, char •* storage) 
ftelse 

pascal Component Result 

KlicsCodec (Component Parameters * pa rams , char ** storage) 

#endif 

*endif 

{ 

CSErr err; 

switch ( params->vhat ) { 
case kComponentOpenSelect: 

errsCallComponent Function (pa rams, (ComponentFunction) KLOpenCodec) ; break; 

case kCoxnponentCloseSelect: 

err *Ca 1 lComponentPunct ionWi thSt or age ( storage , params . ( component Function ) KLC 

case kCamponentCanDoSelect : 

err -CallCoraponent Function (params. (ComponentFunction) KLCanDoSelect or) ; brea 

case kComponentVersionSelect : 

erraCallCamponeiit Function (params, (ComponentFunction) KLCet Vers ion) ; break; 

♦ifdef DECODER 

case codacPreCompress: 
caae codec&andCorapress : 

err»codecUniropErr; break; 

ftelse 

case codec PreCompr ess: 
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err=CafXCcraponentFuncc :onwithS:orage (storage, params. (CornponencFunccion) KLP 

case c odecBandC empress : 

err^Cal lCcmponent Funct ionWithStorage ( storage . pa rams . (Ccmponent Funct ion) KLB 

fendi£ 

•ifde£ ENCODER 

case codecPreDecompress : 
case cadecSandEecompress : 

err =codecUnimp£rr ; orealc; 

•else 

case codecPreDecompresa : 

err aCallComponentFunct ionWithStorage (storage, par ams, ( C onrpon en t Funct ion) KLP 

case codecBandDecompresa : 

err=CallCortponentFunct ionWithStorage (storage, params, (Component Function] KLB 

•endif 

case codecCDSequenceBusy : 

err=0; break; /• our codec is never asynchronously busy 

case codecGetCodecInfo: 

err *CallConponentFunct ionWithStorage l storage, params, (Component Funct ion) KLC 

case codecGetCompressedlmageSiie: 

err =CallComponentFunct ionWithStorage (storage, params, (ComponentFunction) KLG 

case codecGecM&xCompressionSize: 

err =Cal IComponentFunct ionWithStorage ( s t or age , params , ( Component Funct ion ) KLG 

case codecCetCompressionTime: 

erraCal 1 Component Funct ionWithStorage ( storage , params . ( Component Funct ion ) KLG 

case codecGetSimilarity : 

«rr=codacUmrapErr; break; 

case codecTrimlmage*. 

err»codecUniiit>Err; break; 

default: 

err=paran\Err ; break; 

) 

if (err! =noErr) 

DebugMsg ( ■ \pCodec Error " ) ; 
return (err) ; 

) 

* include < Memory. h> 
•include <Resources . h> 
^include <OSUtils.h> 
• include <SysEcru.h> 

# include <StdIO.h> 
•include <Time.h> 

•include <Stringa.h> 

•include <String.h> 

•include "Bits3.h' 

•include •KlicsHeader.h* 

•include • Klic» Encode. h* 

void DebugSt ring (char • string) 

( 

DebugStrt string) ; 

l 
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extern short gResRef; 

typedef struct t 

Codeclnf o **infc: 
per cab(41; 
shorz use (4); 

} SharedGlobals; 

cypedef struct { 


KlicsEKec kle; 

/• 

short *src[3]; 

/* 

short •dst(31; 

/*■ 

Ptr pixmap; 

/* 

long size- 

/* 

long using; 

/' 

long scalef 3] : 

/* 

unsigned long prev^frame; 

/• 

unsigned long real_frame; 

/• 

unsigned long dpy_frame; 

/• 

unsigned long run_frame: 

/• 

unsigned long sys_time; 

/* 

unsigned long tree.tiroe; 

/• 

unsigned long wave_time; 

/* 

unsigned long dpy_ tame? 

/• 

unsigned long run_time; 

/* 

unsigned long key_time; 

/• 

unsigned long sync_time; 

/* 

Boolean out (IS] ; 

/• 


Encoding parameters •/ 

YUV Frame buffer •/ 

YUV Frame buffer */ 

Encoded pixmap data */ 

Size of Previoue Frame Buffer */ 

Which lookup table are we using for colour 

Tree, wave, Out scales (^Original, -l=Doubl 

previous frame number V 

Previoue real frame (no skips) */ 

Previous displayed frame •/ 

First frame in play sequence */ 

System overhead for previous frame */ 

Typical tree decode time (not skip) •/ 

Typical wavelet transform time */ 

Typical display time */ 

Time of first run frame */ 

Time at last key frame V 

Sync time •/ 

Displayed? •/ 


•sharedGlob; 


SharedGlobals 
Globals; 

Scaling scenarios: Tree wave Out 

1 l 0: Internal calculations are Quarter size, output Original size ( interpo 

1 l i: internal calculations are Quarter size, output Quarter size 

Oil: internal calculations are Original size,- output Quarter size 

0 0 0: internal calculations are Original size, output Original size 

0 0-1: internal calculations are Original size, output Double size 


void 


KLDeallocateiGlobala •♦glob); 
/• Klics Function Definitions */ 


*dst [31 , KlicsE kle) ; 


extern i nt KlicsEncode ( short •src(3V. short . - — „„^ mM ^„ . _ „. 4 

exit™ Boolean KlicsDecodei short Mrc(3). short -^"^ -secJi.iU. 
long mode, long scaleI3], unsigned long -tree, unsigned long wave). 


Memory allocation/deallocation routines 


OSErr 

Memory Err or ( ) 

( 

OSErr theErr; 

fifdef DEBUG 

if (0! =<theErrsMemError( ) ) ) 
Debugs tr ' • % r?M»ro^ryError " > ; 
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*endi f 

return ( theErr ) ; 


:SErr 

r reeFtr (Ptr *pcr} 

CSErr cheErr^O; 


if < *pt r ! -nil ) [ 

Di3posePtr ( 'per) ; 
•ptrmil; 

theErr=MemoryError( ) ; 

) 

return tcheErx) ; 


*defin« FreePointer (handle, err > \ 

if (noErr! = <err=FreePtr: ( Ptr*) Uhandle) ) ) ) recurnierrl 

extern OSErr Colours tPtr *»; 

extern OSErr Colourl6(Ptr M; 

extern OSErr UV32Table( Ptr *j; 

extern OSErr RCBTaJble < Ptr •); 

CSErr 

KLGet7ab(Globals "glob, long new) 

( 

OSErr theErr*0; 

SharedGlobals •sGlobs ( *glob) ->shar«dClob; 
long old»(*glob) ->using; 


if (old!=new) { 

if (old! -None) ( 

sGlob->u3c(old-l) — ; 

if <sClob->use(old-l]*»0) < 

FreePointer(sClob->tablold-l] . thaErr) ; 

) 


if (newisNone) < 

if ( sGlob->use( new-1 ] 3=0) 
switch (new) ( 

-ifndef ENCODER 

case Use8: 

if lnoErr'=(cheErr=Colour8 (isGlob- >t ablnew- 1] ) ) ) 

return (theErr) ; 
break; 
case UselS: 

if (no£rr!»(the£rr=Colourl6(&£Glob->tab;new-l) ) ) ) 

return (theErr 1 ) ; 
break; 
case Use32: 

if (noErr: = (theErr=UV32Table<&sGlob->tab(new-l] ) ) ) 

return (theErr) ; 
break; 

tendif 

frifndef DECODER 

case UseF32: 

if (noErr! = (theErr=RG3Table(&sGlob->tab(new-11 ) i ) 

return ( t heErr ) ; 
break; 
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•endif 

) 

( *glob> ->usir.gin*w; 
sGlob->use [new- 1 ; 

) 

return ( cheErr) ; 


OSErr 

KLFreelGlobals "glob) 

{ 

OSErr theErr=0; 

FreePointer ( ( *glob> ->src(01 , CheErr) ; 
FreePointer ( ( *glob> ->dst [0] , cheErr; ; 
FreePointer ( ( *glob> ->pijcnap, CheErr) ; 
(•glob) ->size*0; 
return (theErr) ; 


^define NewPointer (per* type, size) \ 
saveZone=Cet Zone ( ) ; \ 
SetZone(SystemZone() ) ; \ 
if (nil** iptr»(cype>NevPtr(size) ) ) ( \ 
Set Zone ( ApplicZonet ) ) ; \ 
if inila* <ptr=(type)N«wPtr4sixa) ) ) ( \ 
Set Zone ( stveZone) ; \ 
return ( Memory Er ror ()) ; \ 

) \ 

) \ 

SetZone(saveZone) ; 


C opponent Re su 1 t 

KLMalloc ( Global s **glob, short height, short width, long pixelSize) 

( 

long ysize, uvsize; 
THz. saveZone; 

y sizes (long) height * (long J width * ( long ) sizeof (short ) ; 
uvsize s ysize»2; 

if ( ( *glob) ->size i* ysize) ( 
KLFree(glob) ; 
( -glob) ->size = ysize; 

( -glob) ->prev_fraj»e*-l; /* frame doesn't contain valid data */ 

/• Keep Src and Dst separate because of their largi sizes */ 

ysize»( long) height • (long)width * i long) sizeof ( short ) » 2* ( -glob) ->scale 
uvsize » ysize»2; 

NewPointer ( ( *glob) ->src (01 # short * ,ysize-uvsize+uvsize+l* ) ; 
fglob)->arctl) * (short •)(( (long) ( -glob) ->src (01 ♦ ysize ♦ 3D & OxFFTTF 
(•Ciob)->src(2) - (short • i ( ( (long) ( -glob) ->src(l] * uvsize + 3D & OxfTTF. 

ysize«(long)height * (long)width • ( long) sizeof (snort ) » 2* ( *glob) ->scale 
uvsize » ysize»2; 

NewPointer ( (*glob)->dst (0] , short * ,ysize4uvsize*uvsize+16) ; 

rglob)->dstm = (short •) (( (long) ( -glob) ->dst (0 J - ysize ♦ 3D & QxFTTTT 
Cglob)->dst(2) * (short * ) ( ( (long) ( -glob) ->dst [1] ♦ uvsize ♦ 3D & OxFFFF 
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NevPointerf ( *?Iob) ->pixn--ap. Pt r . pixelSize/ 6 •he ig'nz • widths 1 ) ; 
recum ( noErr) ; 

) 

CSErr 

RescurceError i ) 

CSExr theErr; 

•lfdef DEBUG 

if (0! = <th*Err=ResError () ) ) 

Debugs tr ( • \pResourceError* ) ; 

wendif 

return (theErr) ; 

i 

rfifdef COMPONENT 

#define ResErr ( resf ile. err ) \ 

if (0! » (err=Resourc«Error ( > ) ) { \ 

if (resf ile ! =0) CloseComponentResFile( resfile) ; \ 
return (err) ; \ 

) 

• else 

#de£ine ResErr (resf ile. err ) \ 

if (0i ■ (err=ResourceError ( ) ) ) ( \ 
return ( err; ; \ 

) 

■•ndif 

Component Re suit 

KLOpen In foRes (Component Instance self. Handle *info) 

( 

•pragma unusediself) 
short resFile=0; 
OSErr the£rr=noErr; 

if Cinro) ( 

DisposHandle ( *inf o) ; 
*in£o«nil; 

) 

*ifdef COMPONENT 

resFile*OpenComponentResFile( (Component) self) ; 

ResErr (resFile. theErr) ; 
*else 

UseResFile (gResRef ) ; 
■endif 

* info=G€tlResource (codec Inf oResourceType. 128) ; 

* info=GetlResource (codeclnf oResourceType, 129) ; 

ResErr (resFile, theErr) ; 

LoadRe source ( • info ) ; 

ResErr ( resFile . theErr ) ; 

DetachResource ( *info) ; 
tifdef COMPONENT 

CloseComponentBesFile (resFile) ; 
fend if 

return! theErr) ; 


pascal Component: Result 

KLOpenCodec (Component instance self) 

< 

Globals ••glob; 
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SharedClobals *3Glob: 
TH2 saveZone; 
Boolean inAppHeap; 
Csmponent Result result = noErr : - 
snort resFile-CurReaFiie ( ) ; 

DebugMsgf • \pOpen Codec - begin* ) 

it ( (.glob • (Clcbals * * ) NewHandleClear ( sizeof (Global 9 ) J ) nil i { 

return ( MemoryError ()) ; 
) else HNoPurget (Handle)glob) ; 

SetComponenc InstanceStorage ( self , ( Handle ) glob) ; 
saveZone = GetZoneO; 

inAppHeap = ( GetComponent Ins t anceAS I self ) i= 0 }; 
if ( ! inAppHeap ) 

Set Zone ( Sy st emz one { ) ) ; 
if ( < sGlob= ( SharedGlobals* JGetComponentRef con< (Component ) self) J == nil ) ( 
if ( isGlob = ( SharedGlobals* JNewPtrClear (sizeof (SharedClobals) )) a* nil ) 
result =Hen*oryError ( ) ; 
goto obail; 

) 

SetComponentRefcont (Component ) self , (long) sGlob) ; 


( *glob) ->sharedGlob = sGlob; // keep this around where it's easy to get ac 

if { sClob->info 3s nil tl • (Handle) sGlob->info == nil ) ( 
result = ICLOp*nlnfoftes (self , a (Handle) ( sGlcb->inf o) ) ; 
HNoPurge( (Handle) sGlob*>info) ; 

) 

obail: 

SetZone ( saveZone ) ; 

if ( result ! = noErr S»& sGlob != nil ) { 
if ( sGlob->info ) 

DisposHandlef (Handle) sGlob-> info) ; 
DisposPtrt (Per) sGlob) ; 

Se t Component Re f con ( (Component ) self * (long) nil) ; 

) 

(•glob) ->sizerO; 

DebugMsg( '\pOpen Codec - end'); 
return (result ) ; 


pascal Component Result 

KLCloseCodec( Handle storage, Component Instance self) 
SharedGlobals *sGlob; 

Globals *»glob = (Globals i storage; 

DebugMsgl '\pClose Codec - begin"); 
HLock ( storage) ; 
if t glob ) { 

KLFree(glob) ; 

KLGetTab( glob. None) ; 

if (CountCoaiponentmscancea( (Conponent) self ) « 1) { 

if ( ( eGlob. (SharedGlobals- ) ( »glob) ->sharedGlob) ! - nil ) < 
if ( sGlob->info ) 

H?urge( (Handle) sGlob->info) ; 

) 

) 

DisposHandle m Handle J glob» ; 
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heignt » 120* 

} 

. i ;:ime) 

•cime = (width • height ■ ID; 

it : spat lalOualicy • spat ialQuality—codecLosslessOuality i 
• spac la lQual icy = codecMaxQuality ; 

it : tempera lQua Ixty ■ t ernpora IGual ity ==codecLoss lessQual ity ) 
•temporal (Quality = codecMaxCuality ; 

return i noErr ) : 

/• 

• Extends dimensions to make a multiples of 32x16 
*/ 

*define KLExtendWidth ( dim) 3 1- <dim-U31 > 
'define KLExtendH eight tdim) 15- (dim-l&15) 

pascal Component Re suit 

KLGetMaxConrpxessionSi2e ( Handle storage. PixHapHandle sre, const Rect 'srcRect , short 
CodecO quality. long -size) 

t 

■pragma unused ( storage, sre , depth, quality ) 

short width = srcRect -»right - srcRect- >left ; 
short height = srcRect->bottom - srcRect->top: 

/• test by just doing RGB storage */ 

•size - 3 • (width+KLExtendWidth (width) ) • [height+KLExtendHeight (height) ) ; 
return (noErr) ; 

) 

pascal ComponentReault 

KLGetCompressedlmageSize (Handle storage, ImageDes crip tionHandle desc.Ftr data, long • 
DataProcRecordPtr dataFroc. long *si2e) 

{ 

(t pragma unused ( storage, dataSixe, dataProc. desc) 
short frmh_size; 
long data.size; 

if ( si2e r» nil ) { 
return (paramfirr) ; 

) 

:rmh_si2e= ( l KlicsHeader * ) data) ->descnpt ion_length; 
data_sizer ( < Kl icsFrameHeader *)data> ->length; 
•sizes ( long) f rmh_size*data_size; 
return (no Err) ; 

) 

void KLSetup< Boolean still, short width, short height, CodecO space. CodecQ tern 

( 

kle->seqh. head. descriptioo-lengt has i zeof (KlicsSeqHeader) ; 
k 1 e - > s eqh . head . ve r 3 i on.number [ 0 ) = 0 ; 
k 1 e- >seqh. head. vers ion_number I 1) si; 
kle->seqh. sequence_size f 0] swidth; 
kle->seati.sequence_size 11] oheight ; 
kle->seqh. sequence_size (2 JsO.- 
kle^seqh. sub„sanp>le(0) = l ; 
kle->seqh. sub_sairple(l] «1; 
k 1 e - > s eoh . wa ve 1 e t =WT_Daub4 ; 
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kle->aec#i. precision- 10 
kle->secjh.cctaves (0 ) =3 
kle->secjh.oc caves (1) =2 

<le->ermh.head.descripcion.lengchs3iieof ( KlicsFrameHeader ) ; 
Kle->frmh. head. vers ion_number[0] =0; 
kle->f r^h.head.version_numb€r [ 1) si ; 

kle->encd.bpr_in=(2n3 + tenTp*l60)/8; /• High = 64000 bits/frame, Poor * 1 

*ie->encd.opf_out=kle->encd.bpf_Ln; 

*i.e->encd.buf _3ize=kle->encd.bp£_in'4 ; 

kle->encd.quant=16- (space- 15) / 1023; 
kle->encd. thxesh=l. 0; 
kle->encd. compares 1 . 0,- 
kle->encd.base(0)=0.1C; 
kle->encd.baae{l]=0.1O; 
kle->encd. baae[2 ] =0. 20; 
kle->encd.base(3]=0.5O; 
kle->encd.base(4 ]=1. 00; 
kle->encd. intra=scill; 
kle->encd. auto_q=crue; 
kle- >ened . bu f_sv- 1 me ; 
kle->encd.prevquact=l; 
kle->encd.prevbytes*13 ; 


•frifndef DECODER 
pascal ComponentAesult 

KLPreCompresa* Handle storage, register CodecCompressFarama *p) 

ComponentReault result ; 

CodecCapabilitiea 'capabilities » p->capabilitiear 

short widths (*p->L-nageDescription> ->width+ <capabilities->extendW 

s ^ ort height- < •p->imageDescript ion) ->height* ( capabilities ->ext en* 

Clobals **glob=(Clobals **) storage; 

KHcsE kle»&(*glob)->kle; 

Handle ext»NewHandle (aizeor (KlicsSe<iHeader) ) ; 

DebugMag { * \pKLPreCornprcss • ) ; 
HLock< storage) r 

if (MemErrorl ) !=noErr) return (MemError ( ) ) ; 
switch t ( *p->imageDe script ion) ->depth ) { 
case 24 : 

capabilities->vantedPixelSize = 32; 
kle->seqh. channels* 3; 

if tnoErris ( result=KLGecTab(glob. UseF32 ) ) ) 

return (result ) ; 
break ; 
default : 

return (codecConditionErr) ; 
break; 

} 

/♦ Going co uae 3 octaves for Y and 2 for UV so the image must be a multiple o 

capabilities->bandHin » height; 
capabilicies->bandlnc = capabilitiea->bandMin; 

c apab i 1 i t i a a - > f 1 aga=codecCanC opy Pr e vconp I c odecC anCopy Prev ; 

Cglob)->scalef0)»0; 
{*glob>->scaleflUO; 
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< *glob) ->3cale(2) =0. 


if inoErr! = (result=KlMalloc (glob. height, width. 0) ) ) return result; 
KLSetup(p->3e<7uenceID= = 0, width, height , < "p->imageDe3cr;pt ion) - >spatialGuality . I 

31cckMove( (Ptrlikle->scqh. -exc , sizeof (KlicsSeqHeader ) ) ; 

if :nc£rr ! = t result -Set ImageOesc ripe icn£xt ens ion (p-^imageDescri pt ion, exc . klicsC 
return result: 


HUnlock ( storage) ; 

DebugMsg ( " NpKLPreCompress success • ) ; 
return (result ) ; 

) 

*endif 


*ifndef ENCODER 
pascal long 

KLPreDecompress (Handle 

( 

Component Result 

CodecCapabilitiea 

Rect 

long 

long 

long 

Glcbals 

KlicsE 

Handle 

OSErr errr 


storage, register CodecDecompressParams *p) 
result; 

•capabilities = p->capabilicies; 

dRect = p->srcRect; 

width; 

height ; 

channels; 

••glob= (Globala **) storage; 

kle; 

exc ; 


DebugMsg ( *\pKLPreDecomDress* ) ; 
if ( : Trans formRect (p->matrix, idRect.nil) ) 
return (codecCondicionfirr) ; 


HLock { storage) ; 
kle=4 eglob)->kle; 

switch ( ( *p->imag eDe script ion) ->depth ) ( 
case 24: 

switch (p->dstPixMap.pixelSize) ( 
case 32: 

capabilities->wantedPixelSize = 32; 
if (p->conditionflagsfccodecConditionNewDepth) ( 
if (noErr!=(«rr»KLGetTab{glob,Use32) ) J 
return t err); 

) 

break; 
case 16: 

capabilities->vantedPixelSize - 16; 
if (p->conditionFlagsicodecCondicionNewDepth) { 
if tnoErri= (err»KLGetTab(glob, UselS) ) ) 
return (err) ; 

) 

break; 
case 8: 

capabilities->wancedFixelSize = 8; 
if (p->condicionFlagsfiiCodecCondition^frwClut ) ( 
if (noErr!=(err»KLGetTablglob,Use8) ) ) 
return (err) ; 

) 

break; 

) 

channel s »3; 
break; 
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default: 

rtcum (codecCondicionErr j ; 
break; 

) 

if (noErr ! » I result=Get ImageDescr ipt ion£xt ension ( p- > imageDescript lcn. text . Jclics- 
BlockMove ( # ext , ( Ptr ) ikle->seqh. sizeot (KlicsSeqHeader ) > ; 
if (channels*=l ] Jcle->9eqh. channels = l; 

/• Going to use 3 octaves for Y and 2 for UV so the image must be a multiple o 
*ifdef HQ 

(♦glob) ->scale(0]=0; /• Tree scale */ 
♦else 

Cglob)->3cale[0]=l; /* Tree scale */ 
*endif 

vidth»kle->secjh. sequence_si2ef 0] : 
height=kl«>->secjh.secjuence_3±2e { 1 J ; 

awitch( (*glob)->scale(01 ) { 
case 1: /* Quarter size internal •/ 
<*glob)->scale[l]*l; 

if (p->matrix->matrij((0) (0 ) =*p->matrix->matiix [1] [1] ) 
switch (p->raatrix->matrix[0] {0] ) ( 
case 32768: 

capabilities->f lags=codecCanScale; 

capai5iliti«Q->extendWidth=width/2 -dF.ect . right ; 

c apabi 1 i t i e a - >*xt endHe i gh t * he i ghz / 2 - dRec c . bo c t cm ; 

<*glob)->scale{2)*l; 

break; 
case 65536: 

capabilities->extendWidth=width-dRect .right ; 
capaJbi 1 i t i es- >ext endHelght she ight *dRect . bottom; 
< *glob) ->acale C2] =0; 
break; 
default: 

c apabi 1 i t i es - >ex t enciWidt h= 0 ; 
capabi 1 i t ies - >ext endHeightsO ; 
( *glob)->scale{2 J -0; 
break; 

) 

else ( 

capabilities->extendWidth=0; 
capabilities ->extendHeight=0; 
(•glob) ->3calef2]a0; 

) 

break; 

case 0: /• Pull size internal •/ 

if ip->matrix->matrix(0] ( 0) •*p->matrix->matrix[l J [1] ) 
switch (p~>matrix->m3trix(0] [0] J { 
case 32768: 

capabilities ->f lags=codecCanScale; 

capabilities->«.<tendWidth=width/2-dRect .right; 

capabilities ->e^tendHeight=height/2*dRect . bottom; 

(*glob)->scaletl]=l; 

(*glob)->acaie(2]=l; 

break; 
case 131072: 

capabili t ies- >f lagsscodeccanSca 1 e ; 

capabilit ies->extendwidth»width*2 -dRect . right ; 

capaJbilities->extondHaightsheight*2-dR«ct.bottcw; 

(*glob>->scale(l]«0; 

( *glob) ->scale(2] =-1; 
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break; 
case 65536: 

capabilities->extendwidch=v:dth-dRecc . r:ghc ; 
rapabiiities- >extendHeight =heigh; -dRecc . boctcm; 
Cglcb)->scale[l]=0; 
(*glob)->scale(2)=0; 

default: 

rapabil ities->extendwidth=0 ; 
capabil it ies->excendHeight =0; 
(•glob) ->scale(l]=C: 
( -glob) ->scale{2)-0; 

} 

else ( 

Capabilicies->excendWidchsO; 
capabil it ies->extendHeight=0 ; 

l -glob) ->scale[l]*0; 

(•glob) ->scale[2] =0; 

) 

break; 

) 

capabilit ies->bandMin = height? 

capabil i c ies->bandlnc a capabilit ies- >bandMin; 

capabilicies-> flags I =cc<SecCanCopyPrev I codecCanCopyPrevComp i codecCanRemapColor ; 
if (noErr:= < result -KLHalloc (glob, height, width, capabili ties->v&ntedPixelSize) J ) 
HUnlock( storage) v 

DebugMsg ( ■ \pKLPreDecompress success" ) ; 
return (result ) ; 

} 

•endif 

/* Test Versions in C - Colour. c */ 

void RGB2YUV32 ( long -pixmap, short «Yc. short *Uc. short *Vc. inc area, int wid 
void YUV2RGB32(long -pixmap, short -Ye, short *Uc. -short *Vc, int area, int wid 
void YUV2RCB32x2 (Ptr table, long -pixmap, short -Yc. short *UC, short «Vc, int a 

/* Assembler versions - Colour. a */ 

OUT32X2(Ptr cable, long -pixmap. short -Y. short -U. short # V, long width, long height. 1 
OUT32X2DIPtr table, long •pixmap. short *Y, short *U, short -v. long width, long height, 
0'JT32lPtr table, long -pixmap, short -Y, short *U, short -V, long width, long height, Ion* 
OUT32D(Ptr table, long -pixmap. short *Y, short short -V, long width, long height, lo: 
OCT8X2 (Ptr table, long -pixmap, short -Y, short *U. short 'V, long width, long height, lo: 
OUTS ( Ft r table. long -pixmap, short -Y. short "U. short 'V, long width, long height, long 
OUT16X2(Ptr table. long -pixmap, short *Y, short *U, short *V, long width. long height. 1 
0UT16(Ptr table. long -pixmap, short -Y, short -U. short -V.long width, long height. Ion- 
lN32(Ptr table, long -pixmap, short *Y. short -U, short -V. long width, long height, long 

/• Assembler versions - Color2.a */ 

void RGB2YUV2 { long -pixmap. short -Yc, short -Uc, short *Vc, int area, int widt. 

void YUV2RGB2 (long -pixmap, short -Yc, short *Uc, short *Vc, int area, int widt 

void YUV2RGB3 (long -pixmap, short -Yc. short m Uc . short *Vc, int area, int widt: 

void GREY2Y ( long -pixmap, short -Yc, int area, int width, int cols); 

void Y 2 GREY ( long -pixmap, short *Yc, int lines, int width, int cols); 

void Y2GCG(long -pixmap, short *Yc, int linos, int width, int cols); 

/-YUV2RCB4 ( Cglob) ->Table , pixmap, src[0J , srcfl] , src{2] . cols' ( -desc) ->height»scale.* 
YUV2RGB5( ( *g lob) ->Table , pixmap, src (0) , srcfl ] , arc [2 ) , cols* ( -desc) ->height . width»sc 

^pragma parameter DO Microseconds 


SUBSTITUTE SHEET (RULE 26) 


WO 94/23385 


PCT/GB94/00477 


- 697 - 


Engineering: Kl lcsCode : CompPict : KlacsCodec . c 
pascal unsigned long Microseconds (void) = (0x4EBO, 0x81E1. 0x64C); 

unsigned long GetTimexValue (unsigned long •TimerRes) 

( 

'TimerRes » CLOCKS_PER_SEC ; 
recum (Microseconds ( ) i ; 

) 

Hifndef DECODER 
pascal long 

KLBandCcrapress (Handle storage, register CodecCompressParams *p) 
^pragma unused (storage) 


Globals **glob = (Globals •*) storage; 
Imag«Description ♦•desc s p->imageDescript ion; 

char •baseAddr; 

short rowBvt as ; 

R«ct sRect; 

long offsetH, of fsetV; 

OSErr result » noErr; 

short *src[3] ( •dst[3) f - 

long *pixmap; 

int widths Cdesc) ->width+KLExtendWidth ( <*desc) ->vidth) ; 

int heights ( *desc) ->height+KLXxtendHeight t ( *dese) ->height) ; 

int hwidth3width»l. hheight=height»l; 

int bytes; 

KlicsE kle; 

char nvnuModea 1 ; 

chax intra ( ] = • \pENC : Intra -mode • , inter ( } s" \pENC : Inter-mode • ; 

SharedClobals •sGlob; 


#i£def PERFORMANCE 

( void ) Per f Control < ThbPGlobals . true ) ; 
*endif 

DebugMsg ( * \pBandCampress - ) ; 
HLock( < Handle) glob) ; 
kle=4(*glob)->kle; 
sGlobs ( *glob) ->sharedGlob; 

rowBytes = p->arcPixMap. rowBytes & 0x3fff; 
sRect x p- > arc PixMap. bounds ; 
switch ( p->srcPixMap.pixelSize ) { 
case 32: 

offsetH = sRect . le£t«2; 

break; 
case 16: 

offsetH a sRect.le£t«l; 

break; 
case 8: 

offsetH a sRect.left; 

break; 
def aulc : 

result = codecErr; 

DebugMsg{ ■ \pError* ) ; 

goto bail) 

) 

offsetV r sRect. top * rowBytes; 

baseAddr a p->srcPixMap. baseAddr + offsetH + offsetV; 
pixznapa ( long * ) baseAddr; 

/♦ FSMakeFSSpectO, 0, •\p0ser:crap001- ,&fsspec) ; 
FSpCreateiifsspec. '????• . •????• ,-1) ; 
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rSpOpenDFlif sspec. f sWr Perm, & t UeRe f Mum) ; 

"Wri^jfileRafMum.iirea. t long*) pixmap > ; 
FSC lose ( f ileRef Nun») ; ■ / 

case 3: 

} 


* Klics encode 
»»ifdef DEBUG 



p->c*llerPiaoa*cod«:FlagOontO£f8cr««n) Debug$tr( • \pDoncOff screen - J • /. 
- P-callerFl^sicodecFlagupdacePreviousComp) DebugStr < • VpOpdatePreviouaComo 

■«ndif " >caUerFla OS'cod.cFlagOnlyScre«nUpdate) DebugStr ( • VpOniyScree^update- ) ; 

ki!" > ^ bUf ; tUn ? i9n * d l0ng *^p->da C a+sizeof(KlicsFraii*Header)>; 
)cl€->encd . intra* {p->temporalOuality»»0) ; 
k 1 e - > f rmh . f rame_nuaibe r =p - > £ r ameNumbe r ; 

bytes=KlicsEncode(src,d« , kle) ; 

«octotov«((Ptr)fik^^ 
oytes+=sizeof (KlicsFraraeHeader J ; 

( *glob) ->prev_£rajne=p->£rameNuinber; 

p->daca+=bytea; 
p->bu££erSize»bytes; 

1 # p->unageDescription) ->data5izeebytes ; 

p->3imilarity=(kle->encd.incra?0:Long2Fix(244) ) * 
p->callerFlags=0; 

/• P->callerFlag*|.codecFlagyaedIniage^ 
bail; 

HUnlocki (Handle)glob) ; 
Ufdef PERFORMANCE 

if (0!-(re3ult = Per£Duii5)(ThePGlobals. • \pEncode.perf * , false, 0 ) ) ) 
return ( result ) ; 

»endi£ 

DebugMsg< *ApBandC empress success*}; 
return (result) ; 

} 

*endif 

/• Display stuff for debugging 
CCrafFcr vPort. savePort; 
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Rect rect; 
5tr253 str; 


GetPort < (CrafPtr • ) &sav«porc ) ; 
GetCWMgrPort (fcwport ) ; 
3et?or; ( (Graf Ptr ) wPort ) ; 
SetRec- : irec:, 0 , 0 , 5C, 30 ) ; 
ClipRecc (irecc ) ; 
EraseRect Urect ) ; 

NumToString(frmh->frame number, str); 

MoveTo : 0 , 20) ; 

DrawStnng(str) ; 

if ( frinh->£ lags &KFH_ INTRA) ( 

SetRect (&rect, 0, 30, 50, 65) ; 

ClipRect { trecc) ; 

EraseRect (4rect) ; 

NuittToScring(rrmh->Crajne number/24 , str) * 
MoveTo (0* 50) ; 
Drawstring tstr) ; 

) 

SetRecc(&rect.-2000, 0,2000.2000} ; 
ClipReet (irect ) ; 

SetPort ( (Graf Ptr)sav«port) ,**/ 

^define flag_tree 0x1 
fdefine flag_wave 0x2 
iderine flag.show 0x4 
^define flag^full 0x8 
* define DURATION 66666 

long ModeSwitch(Globals • glob. K lies Pram. Header -frmh) 
long mode=0, i, fps; 

Boolean repeat =glob->prev_f rame«f rmh-> frame number, 

^ ^ nftxt3 9lob->prev_frameH-I==fnrti->frame"n\amber; 
CGra f Pt r wPort . sa vePort ; 
R»ct rect ; 

Str255 atr; 

DebugMagCNpModeSwitch - begin-); 
if ( frmh- > frame ^n umber ==0 ) 

for(i=0; i<15;i*+) glob->out [ i) sfalse; 
if (repeat) ( 

g 1 ob- > run. t iaiea 0 ; 

DebugMsgfNpModeSwitch - repeat (end)'); 
^ return l f lag_snow | f lag_f ull ) ; 

if ( next : 

switch {frmh-> flags) { 
case KFH_SKIP: 

DebugMsge\pModeSwltch - next/skip-); 
g 1 ob- >prev_f raioe» f rmh- > f ramejiumber ; 
if (glOb->sys_time>DURATION) { 
glob->run_time«0? 

if fglob->real_framei =glob->dpy_ frame ) 
mode | * f l ag_va ve I f 1 ag.show ; 

) elae ( 

unaigned long frame, late; 


frame»glob->run_frame+ ( glob- >sync_time-g lob ->run_t ixtm) /DtTRATIW; 
late3(glob->sync_time-glob->run 4 „cime)%DaRATION; 

if (frame<aglob->prev_ frame glob->real_f rame ! *glob->dpy frame) 
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* mode I r f lag.wave I :lag_show; 

if ( f raroe<=glob->prev_£rame lat e+giob->wave_c ime+glob- >dpy_time 
mode I 3 £ lag.uave flag show;*/ 

) 

break; 
case XFH.INTRA: 

-ebugMsg ( ■ VpMcdeSwitch - next / intra " I : 
moda=f lag_cre«; 

g 1 ob - >pre v_ £ r ame = f rmh - > t r ame _numbe r ; 
g lob- >r aal.fr ame«glob- >prev_f rame ; 
if (glob->sys_time>DURATICN) ( 
glob->run.time=0; 

model =flag.wavef flag. show I f lag_full ; 
} else 

if (glob->ren_timea=0 ) {•/ 

glob->key_time=glob->sync_time-glob->run_cime; 

g 1 ob- > run.c inw =g 1 ob- > sync, t ime -glob->sys_ time; 

glob->run.f rameag lob- >pr ev.fr ame; 

mode I = f 1 ag.va ve i f 1 ag.show 1 f 1 ag_ full; 
) else ( 

unsigned long frame, lace; 

f rame=g lob- > run. frame* ( g 1 ob- > sync, t ime -g lob- > r un_t ime > / DORATIQ 
late* ( glob- >syne_t ime~glob- >rur^j. ime ) * DURATION; 
if ( £rame<=g lob- >prev. frame) 

mode I »f lag_wave I f lag. show I f lag.full ; 

}•/ 
break ; 
default : 

DebugMsgf\pModeSvitch - next/inter 4 ) ; 
modes f lag_.tr ee; 

glob- >prev_£rame=f rmh-> f rame.number ; 
glob->real_frame*glob->prev_fraj»e; 
if <glob->eys.tima>DURAT10N) { 

glob->run_tune»0; 

mode 1 a f lag.v* ve I f 1 ag.show ; 
) else 

if (glob->run.time»»0) { 

g 1 ob- > run.t ime sg 1 ob- > sync_t ime -glob->sya_t ime ; 

glob->run.frame=glob->prev_frame; 

mode I »f lag.wave I flag, show; 
} else { 

unsigned long frame, late; 

f r ame *g lob- > run. frame* < glob- >sync_t ime-glob-> run.t ime ) /DURATION 
late= (glob->sync.time-glob->run_ti2ne ) % DURATION; 
if i f rame<sglob->prev_f rame) 

mode I sf 1 ag.wa ve I f 1 ag.sho w ; 
if (f rame<-glob->prev_f rame && late+glob->tree_C ime +glob-> wave 

mode 1 *f lag.wave I f lag.showj •/ 

) 

break; 

) 

else 

switch ( f rmh- > flags) { 
case KFH.SKIF: 

DebugHag(*\pHodeSwitch - jump/ skip* J ; 

g lob- > run_t ime =0 ; 

break; 
case KFH_ INTRA: 

DebugKsg(*\pMode£witch - jump/ intra • ) ; 

modes f lag.tr ee I f lag_wave I flag, show I f lag. full ; 

for (i -glob- >prev.frame;i<f rmh- >frame_number; i ) 
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^ glob->c\jc ( rrmh->f rame_number%15 ) =0; 
glcb->prev_f rame»irmh-> frame .number; 
glob* > rea l_f rame=glob->pre v_ frame .- 
t glob->run_tijne=Q; 
break; 
default: 

DebugMsg ( " NpModeSwitch - jump/ inter •> ; 

g 1 ob- > run_c ime = 0 ; 

break; 

) 

DebugMag ( • NpModeSwitch - display info*); 
*ifndef COMPONENT 

/* glob->out [£rmh->f raxne_number%15] = (raode&f lag_show> ! =0; 
for (i = 0, ips=0; i<15; if (glob->out [ i ] ) f pe** ; 

GetPort < (Graf Ptr • } isavePort ) ; 
GetCWMgrPort t&wPort ) ; 
SetPort ( (Graf Ptr) wPort) ; 
SetRect (&xect, 0,20. 120. 50) ; 
ClipRect (&rect ) ; 
EraseRect ( &rect ) ; 

NumToScring ( f rmh->f rame_nujnber, str) ; 
MoveTo(0,33) ; 
DravString(scr) ; 
DrawString C\p: •) ; 
NumToString ( fps , str ) ; 
DrawString(str) ; 
MoveTo(O.SO) ; 
for ( i*0r i<15; i+*) 

if (glob->out (i) ) DrawString i • NpX* ) ; 
else Drawstring (■ \pO" ) ; 
S«tRect ( tract , - 2 000 , 0 , 2000 . 2000 ) ; 
ClipRect tirect) ; 
SetPort I (Gra£Ptr)sai»ePort) ;*/ 
♦endif 

DebugMag ( 'NpModeSwitch - end'); 
return (mode) ; 

) 

#ifnd«£ ENCODER 
pascal long 

KLBandDecompress (Handle storage, register CodecDecontpressParams *p) 

{ 

^pragma unused ( storage) 

Globals **glob = (Clobala *•) storage; 

ImageDescription **desc = p->imageDescription; 

int x,y; 

char *baseAddr; 

short rowBytes; 

Rect dRect; 

long offsetK.of f setV; 

OSErr result = noErr; 

short *src(3] , *dat [3] ; 

long *pixraap; 

int widths t-deac) ->width+KLExtendWidth( (*desc)->width) ; 

int heights ( *deac) ->height*KLExtendHeight ( ( *desc) ->height ) i 

int hwidth»width> > 1 , hheight =height >>1 . areaaheight *width; 

KlicaS Jtle; 
KlicsFrameHeader *frmh; 
Char mmuMode=l ; 

long mode; 
SharedClobals *sGlob; 

/* 

FILE *fp; 
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cnar ^ £ile_name(30] ; 

CGrafPtr wporr . savePort ; 

Recc rect; 
Str255 3 r.r; 


HLock( (Handle) glob) ; 
DetvgMsg t ' \pBandDecotnpress ' ) ; 
"Slob) ->sys_time=GetTimerValue(&<*glob) ->3ys_cime) ; 
(•glob) ->sys_cijne-= < *glob> ->sync_txm«; 

•ifdet PERFORMANCE 

(void) PerfControl (ThePClobals, true) ; 
♦endif 

kle=& ( *glob) ->kle; 

sGlob= ( *glob) ->sharedGlob; 

dRect a p->srcRect; 

if < ! Trans fomKect (p->matrix. fidRect , nil) ) ( 
DebugMsg( "\pTransrormRect Error*); 
return ( pa ramErr) ; 

) 

rowBytes = p->dstPixHap. rowBytes 4 0x3fff; 
offsetH - (dRect. lef; - p->dstPixMap. bounds. left) ; 
switch ( p->dscPixMap.pixelSize ) ( 
case 32: 

offsetH «w2; 

break; 
case 16: 

offsetH <<»1; 

break; 
case 8: 

break; 
default: 

result - codecfirr; 

D*bugHsg( *\pDepth Error" ); 

goto bail; 

) 

offsetv a (dRect. tap - p->dstPixrtap. bounds .top) * rowEytes; 
baseAddr * p->dstPixMap. baaeAddr * offsetH ♦ offsetV; 
pixmaps ( long * IbaseAddr; 


* Klics decode 

src(0]»Cglob)->src[0) ; srcf 1) « ( *glob) ->srcl 1] ; src [2 J = r glob) ->src [2] ; 
dst(0]=(*glob)->dst(0] ; dst [1] = ( *glob) ->dsc (1) ; dsc (2 J = ( *glob> ->dsc (2] ; 

f rmh= (KlicsFrajneHeader *)p->data: 

kle->buf.buf« (unsigned long * > (p->data*aiieof (KlicsFrameHeader) ) ; 
mode sMode Switch ( »glob, trmh) ; 

KlicsDecode<arc,dat,4kle->seqh, fnnh. &kle->buf ,mode, ( -glob) ->scale.i ( »glob) ->tr 

if ( kle->bu£.ptr-kle->bu£.bu£ > f nnh->length+2 ) 

DebugMsg ( • NpWaming : Deconpressor read passed end of buffer*); 

p->data[0]»'X* ; 

p->datailj=mode&f lacT^Tee?*?' : ' • ; 
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* p- >dat«K 2 ] =mode4 1 lag_wa ve ? 1 w : ■ 
p->data(3)»mode£flag_3how?*s* : 
p-xlata ( 4 ] ainode&f lag^full ? ' F ' : ■ 
p-xiaca(5]sCrTT)h->flag3&KFH_:NTRA? ' I ■ : 1 
p->data[6]=£rmh->£lags&KFH_SKIP?'K' : ■ • 
p->data[7]=*X' ; 

p->data*=p->bu£CerSize; 

/•«•«•••••••••***••••••••••••••••«.•*,••«..,...,... 

* signed 10 bit YUV-unsigned 8 RGB convert 

#ifdef COMPONENT 

SwapMMUHodG (tmnuMode) ; 
•endif 

if (modefcf lag_shovi { 

( * gl ob ) - > sync_c ime=Ge tT ime rvalue ( & ( * g lob ) - >sync_t ime ) ; 
Cglob) ->dpy_ frame* (*glob) ->real_£rarae; 
if ( Cglob)->scale(2]<(*glob) ->scale(l] ) { 
switch (kle->seqh. channels) [ 
case 3: 

switch (p-xistPixMap. pixel Size) { 
case 32: 

if (roode*flag_full) 

OUT32X2(sClob->tab(Use32-l] ,pixmap,3rc(0],3rc[lj ,srci'2],wi. 

else 

OUT32X2D(sGlob->tab[Use32-l] , pixmap, srct 0 ] , sicfl] . src(2).v 
break; 
case 16: 

OUT16X2(sGlob->cab(DS€l6-l) ,pixmap. src(0] , src [1] . arc (2] , vidth> 
break; 
case 8: 

OUT8X2 {sGlob->tab{Use8-i] ,pixmap. src(0] . src(l] . src(2) ,width»( 
break; 

) 

break ; 

) 

) else < 

switch <kle->seqh. channels) ( 
case 3 : 

switch (p->dstPixMap.pixelSize) ( 
case 32: 

if (mode&f lag_full) 

OUT32 [sClob->tabf l , se32-l] , pxjcmap, src ( 0] , src [ 1} , src [ 2) ,widc 

else 

OUT32DtsGlob->tab(Use32-l] , pixroap, src (0] . srcd) , srcf2J .wid 
break ; 
case 16: 

OOT16 (BGlob->tabfDsel6-l) , pixmap, src [0] , srcd ] , src[2) , vidth»( 
break; 
case 8: 

OOT8 < sGlob- > tab ( UseB - 1 1 . pixmap, src [ 0 ] , src ( 1 ] , src ( 2 ] , width» ( *g 
breaJc; 

) 

break; 

) 

) 

(*glob) - >dpy_t ime sGet Time rValuetfc <*glob) ->dpy_time) ; 
(•glob) ->dpy_time-3 ( # glob) ->sync_tiroe; 
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CLEARA2 0; 

i -glob) ^sync.tunesGecTimerVdluef* : *glob) ->s/nc^cim«) ; 

a i:der COMPONENT 

SwapMMUMode ( i.muMode ) ; 
B er.dif 

tail: 

HL'r.lccki ■ Handle) glob) ; 

"ifdef PERFORMANCE 

i£(0 ! s ( result = Per f Dump (ThePClobals , • \pDecode . perf ' , false, C) ) ) 
return l result J ; 

•endif 

DebugMsg { '\pBandDecompress success*); 
recurni result ) ; 

) 

*endif 
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• © Copyright 19S3 KLICS Limited 
All rights reserved. 

• Written by: Adrian Lewis 

••••••••••*»••/ 

/ * 

• Second generation header file 
•/ 

•include <stdio.h> 

/* useful X definitions •/ 
/•typedef char Boolean; •/ 
typedef char 'String; 
#define True 1 
^define False 0 

/• new Blk definition •/ 
typedef inc Blk [4]; 

•define WT_Haax 0 
•define WT„Daub4 1 

/* mode constructors */ 
#define M_LPF 1 
♦define M_STILL 2 
^define M — SEND 4 
#define M_STOP 8 
#define M_V0ID IS 
#define M.QOIT 32 

/* LookAhead histogram */ 
★define HISTO 300 
#define HISTO.DELTA 15.0 
^define HISTO.BITS 10 

/* Fast Functions */ 

/* Is the block all zero ? V 
wdefine BlkZero (block) \ 

block[0]==0 && block[H==0 &£ block(2J»«0 && block(3J= = 0 

/* Sim of the absolute values •/ 
* define Decide (new) \ 

abs(naw(0])+ \ 

ab9 (newilj ) + \ 

abs (new[2) ) + \ 

abs { new [ 3 3 > 

/* Sum of the absolute differences •/ 
#define DecideDelta (new, old) \ 

abs(new(0]-old(0])+ \ 

abslnew(l]-old(lJ )+ \ 

abs(n*w{2]-oldt2] \ 

abs(nev(3j-oldf32) 

/* Adjust the norm for comparison with SigmaAbs V 
ftdefine DecideDouble (norm) (4.0* norm) 

/* Get addresses from x,y coords of block, sub-band* octave, 
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•^image size ai»d mask 'directly related to occavej information 

•define GetAddr (addr ,x. y , sub. ocl , s;ze. mask) \ 
■ :n; smask=mask>> 1 . \ 

x0=xl (sufc&l ?smask: 0 ) . \ - 

xl»xi (subtl?smask:0-) imask. \ 

yd-(y\ !subi2?3irask:0) rsne(O), ■. 

yl=f/l tsub&2?sn\ask:0) I mask ) *3izef 01 ; \ 

addr{0] =x0*yO; \ 
addrUJ =xWyO; \ 
addr f 2 ) =x0*yl ; \ 
addr(3].xl*yl; \ 

i 

/* Get data values Crom addresses and memory' */ 
^define CetDatai addr, block, data) \ 

block 1 0 J — ( mt ) data [addr [0] ] ; \ 

block (1 )= (int )oata(addr (1] J ; \ 

block[21=<int )d*ta(addr[2] J ; \ 

block (3 J a (int )data [addr (3 ] 1 ; 

^define VerifyData ( block. mask, tn.p> \ 
cmp=block£mask; \ 
if (tmp!=0 4i cmp:»mask) { \ 

block*block<07raask: -mask; \ 

> 

/* Put data values to merrory using addresses •/ 
•define PutDaca (addr, block, data ) \ 

data[addr[0] 1 = (short > block [0] ; \ 

data(addr[l)]-(short)block[l); \ 

data [addr [2]]= (short) block (2); \ 

data(addr[3] ] r (short ) block [3 ) ; 

/* Put zero's to memory using addresses •/ 
•define Put Zero ( addr, data) \ 

data|addr[OJ J*0; \ 

data laddrll] ]=0; \ 

datafaddr [2J ]»0; \ 

data(addr[3]J=0; 

/• Mode: M_V0ID Put zero's and find new mode */ 
*define DoZero (addr . dst , mode , oct ) \ 
Putzerctaddr.dst ) ; \ 

mode [oct] =OCt==0?M_STOP: M_ VOID; 

/* Descend the tree structure 

* Copy mode, decrement octave (& mask), set branch to zero 
•/ 

♦define DownCounters (mode, oct, mask, blk) \ 
mode [oct-i) =mode [oct] ; \ 
oct — ; \ 

mask a mask>>l; \ 
blk|oct]=0; 

/* Ascend the tree structure 

* Ascend tree [if possible) until branch not 3 

* If at top then set mode to M.QUIT 

* Else increment branch and x,~y coords 
*/ 

#define St opCounters (mode. oct , mask. blk. x.y. oct s) \ 
while! oct <octs-l fc& blkfoctl==3) { \ 
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blk(oct)»4; \ 
masks mask<<l; \ 
x i= -mask; \ 
y -maak; \ 

c c t + ** ; \ 

} \ 

if (oct-=octs-l) mode (oct )=M_QUIT; \ 
else { \ 

blklocc]-*; \ 

x *s ma9k«l; \ 

if (blk(oct]=*2) y A = ma3k«l; \ 
mode (oct J *mode (oct+1) ; \ 
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© Copyright 1993 KLICS Limited 
All rights reserved. 

Written by: Adrian Lewis 

68000 Fast Forward/ Backward Haar 


macro 
FwdO 


move .w 
move . w 


taddrO, &dG. tdH 

(iaddrO) , idG 
&dG,&dH 


dG=* ( short 
dH=dG 


naddrl 


endtai 


3do 


macro 




Fwdl 

&addrl . &addr0 , tdG , fcdH 


move . w 

(iaddrl) .d0 

• vaM short *)addr2 

add. w 

dO.fcdH 

• dH*«v 


sub. w 

dO.idC 

• dG-av 


clr. w 

dO 

dOsO 


asr.w 

f l,&dH 

dAH>>» 

1 

addx. w 

dO, fcdH 

round 

dH 

asr.w 

t-l.&dG 

dG»»i 


addx. w 

dO,idG 

round dG 

move . w 

idH, (taddrO) 

*( short * ) addrO=rdH 

move. w 

4dG, (iaddrl) 

•(short *)addrl=dG 

mend 




macro 




Fwd 

&base,&end, fiinc 



movea..l 

&base, aO 


■ addrOsbase 

move. 1 

&inc.d0 


• dOainc 

asr . 1 

#l,dO 


■ d0=inc>>l 

movea . 1 

aO.ai 


addrlaaddrO 

saba . 1 

dO.al 


addrl-=< inc»l) 

FwdO 

a0.d4.d5 


FwdO(addrO.dCdH) 

adda . 1 

iinc, al 


addrl+=inc 

Fwdl 

al.a0.d4.d5 


Fwdl (addrl. addrO.dCdH) 

ddda.l 

imcaO 


addrO+sinc 

cnpa . 1 

aO, 4 end 


addr0<end 

bgt . s 

9do 


while 

endm 





HaaxForward FUNC 

link 
aoven.l 

roove.l 
roovea . 1 
move. 1 
move. 1 
move. 1 


EXPORT 
a6,#0 

d4-d7/a3-a5,- 

$000C<a6),d3 
$0008 (a6) ,a3 
SO01OU6) ,d6 
$0018(a6),d7 
$0014(a6) ,d2 


(a7) 


no local variables 
store registers 

inc=incl 
basnrdata 
end! 
end2 

inc2 
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Cdo 


movea. 1 
adda. 1 
Fwd 

adda. 1 
cinpa . 1 
bit .s 

tno'/em. i 
unl* 

ENDFUNC 


a5.a4 
d6, a4 
a5 , a4, d3 
d2,a5 ' 
d7,a5 
9do 

(a7)*,d4-d7/d3-a5 
a6 


end=base 

and+aencU 

Fwd(base,end, inc) 

base+=inc2 

end2>base 

for 

restore registers 
remove locals 
return 


macro 
BvdO 

'&addxO, fcdG, &dH 



move . w 
move. w 

(taddrO) ,&dG 
&dC.S.dH 

dG=M short # )addr0 
dH=dG 

en dm 




macro 
ewui 

fitaddr 1 . &addr0 . &dC . &dH 


move . v 
add. w 
sub.w 
move . w 
move . v 

(&addrl),d0 
dO,&dH 

dO,4dG ; 
&dH. (&addrO) 
tdG. (fcaddxl) 

v«'i short *)addrl 

dH*»v 

dG-sv 

*t short * ) addrO-dH 
•< short •)addrl=dG 

endm 




macro 
Bwd 

&base . icount , & inc 



• 

movea . 1 

move. 1 
asr. 1 
movea . 1 
suba . 1 
<?do BwdO 

adda.l 
Bwdl 
adda.l 
dbf 

&ba*e, aO 

& inc. dO 

#l,dO 

aO, al 

dO.al 

a0,d4.d3 

4 inc. al 

al,a0.d4.d5 

fcinc.aO 

tcount.&do 


addr0=baee 

dOsinc - 

dO»iu-,*»l 

addri-addrO 

addrl-=(inc»ir* 

BwdOtaddrCdG.dH) 

addrL+«inc 

Bwdl ( addrl , addrO , dG . dH ) 

addr0+=inc 

while -l!=count 

endm 




HaarBacfcward 

FUNC EXPORT 



* 

dO - spare. 

dl - count 1. d2 - inc2. d3 - 

incl, d4 - dG, d5 - dH. 

• 

linX 
movem. 1 

a6,#0 

d4-d7/a3-a3,-(a7) 

■s». 

* no local variables 
■ store registers 

move . 1 
movea . 1 
move. 1 
move. 1 
move. 1 
subq. 1 
Isr.l 
subq. 1 

$000C(a6) r d3 
S0008<a6),a5 
$0010 (a6) .d6 
$0018 (a6) ,d7 
$0014<a6),d2 
#l.d7 
#l,d6 
#l,d6 


inc* incl 

• basezdata 

• loopl (width/height) 
loop2 (height/width) 

- inc2 

• loop2-»l 

• loopl/*2 

• loopl-*l 


loopl , d 
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3 do 


move . 1 
Bwd 
adda.l 
dbf 

rr.cvem. 1 

unlk 

rts 


d6,di 
a5.dl.d3 
d2.a5 
d7 , Qdo 


!a7)- 
a6 


.d4-d?/a3-a5 


count 1 = loopl 

Bwd (base, count . inc t 

base*- mc2 

while -l!*--ioop2 

restore registers 
remove locals 
return 


END FUN C 


HaarXTopBwd FUNC 

link 

movea . 1 
move . 1 
lsr.l 
subq. 1 
(? do move . 1 
move . 1 


EXPORT 
a6. tO 

S0008(a6) , aO 

$000C(a6) ,d3 

U.d3 

• l.d3 

(aO) ,d0 

dO.dl 


edoi 

edo2 


swap 

dl 

neg .w 

dO 

add. 1 

dl.dO 

move . 1 

dO. (aO}* 


d3 . <?do 

unlk 

»6 

rts 


EUDFUNC 


Bwd FUNC 

EXPORT 

link 

a6,*0 

movent. 1 

d4-d6.-(a*7) 

move*. 1 

S0008 U6) ,a0 

movea . 1 

aO.al 

move. 1 

$O00C(a6),d< - 

move. 1 

$0010ia6>,d3 

move. 1 

d3,d6 

add.l 

d6.d6 

lsr.l 

if l,d4 

lsr.l 

#l,d3 

subq. 1 

#1,U4 

subq. 1 

#l,d3 

adda. 1 

d6.al 

move. 1 

d3,d5 

move. 1 

<a0) ,d0 

move. 1 

(al),dl 

move . 1 

d0.d2 

add.l 

dl.dO 

sub.l 

dl.d2 

move . 1 

dO.dl 

swap 

dl 

neg.w 

dO 

add.l 

dl,dO 

move. 1 

dO. (a0> + 

move . 1 

d2.dl 

swap 

dl 


no local variables 

start 
area 

area ( long ) 

area-sl 

dO-HC-*Y 

dl=HG 

dl=GH 

dO=H(-G) 

d0*01 

•Y*+*0X 

while -i;=--area 

remove loca 1 s 
return 


no local variables 
store registers 

startK 
scartG 
height 
width 

linelensrwidth 
linelen (bytes) 
height/ *2 
width/ -2 
height-=l 
width- si 
startG*slinelen 
linecount »width 

dOsHAHBa'YO 
dl*CAGB=*Yl 
d2=HAHB 
dO.OAOB 
d2 = LA13 

dl-HG 
dl=CH 
dO=H<-G> 
d0=01 

*YO++»0A0B 

dl^HG 
dl-GH 
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neg. w 


add. 1 

dl , d2 

move . 1 

d2, (all* 

dbf 

d5.edo2 

nove . 1 

al.aO 

dbf 

d4. 3dol 

movem. 1 

(a7) *,d4-d6 

unl* 

a6 

rca 


ENDFUNC 



d2=H<-C) 
d2 = 0l 

•Y1»+=1A1B 

while - 1 ! =- - linecount 
scartH=scarcC 
while -1 ! s--heighe 

restore registers 
remove locals 
return 


END 
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* £ Ccpyricht 1993 KLICS Limited 
A L I r:3nts reserved. 

* Written oy : Adrian Lewis 

* *••*•••*/ 

20 wavelet transform convolver (fast hardware emulation) 
New improved wavelet cceffs : 11 19 5 3 

Optimized *or speed; 
dim - False 
src/dst occave == 0 


fderir.e FwdS ( addr 0 , dAG, dAH ) \ 
v^Msncrc *)addrO: \ 
dAG» (v3 = v* ( vs»v«l ) ) ; \ 
dAG*=v* (vs«3l) ; \ 
dAH=v3+<vs<<:=l ) ; \ 
dAK«-=v3* ( vs«= 1 ) ; 

"define Fwdl(addrl,dAC.dAH,dBG,dBH) \ 
v=-(shor= *)addrl; \ 
dBG» ( v3-v+ ivs=v<<l ) ) ; \ 
dAH**v+ (vs<<»1 ) ; \ 
dBH=v3+ lvs«=l ) ; \ 
dAG-=v3+ (vs«=l) ; 

(•define Fwd2 (addr 2 . addr 1 , addr 0 , dAG . dAH, dBG, dBH) \ 
v=-( short *)addr2; \ 
dAH- = <v3=v*(vssv«l) ) ; \ 

dBG+»V+ ( V9<<rl) ; \ 

dAG+»v3-H vs« = l) ; \ 

dBH*sv3+ (vs« = l) ; \ 

'(short ♦ iaddrO= (dAH+13i»5; \ 

'(short • Jaddrl«(dAG*15)»5; 

*de£ine F vd 3 ( addr 3 . dAG, dAH, dBG. dBH) \ 
vs» (short *)addr3; \ 

dAC= ( v3 = v* ( vs = v-s< 1 ) ) ; \ 
dBH*=v* ( vs<<=i 1 ; \ 
dAH*v3* (V3«sl ) ; \ 
dBC-=v3* < vs<<=1 ) ; 

'■define Fv/dO ( addrO . addr 3 , addr 2 . dAG, dAH, dBC, dBH) \ 
v=»{ short •JaddrO; \ 

dBH-* ( v3"V+ (V9»V<<1 ) ) ; \ 

dAG-*«v+ ( vs<«l ) ; \ 

dBG*=v3* ( vs«sl ) ; \ 

dAH*«v3* (vs<<=!) ; \ 

•(short *)addr2-(dBH+15)»5; \ 

•(short *)addr3=tdBG+15)»5; 

^define FwdE { addr 3 , addr2 , dBG . dBH ) \ 
v=M short *)addr3; \ 
dBH+= (VSav«l) ; \ 
dBG-»(vs«2); \ 

•(short •)addr2=(dBHf 15) »5; \ 
•(short •)addr3»(dBG*15)»5; 
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* define Fwd (base, oncb-mc) \ 
addrO=base; \ 
addr3»addr0- ( inc»2 ! ; \ 
addr2 = addr3- ( inc>>2) ; \ 
addri=addr2- (inc>>2 ) ; \ 
FwdS (addrO, dAG.dAX) ; \ 
addr 1 ♦sine; \ 

F wdl ( addr 1 , dAG , dAK , dBG , dBH ) ; \ 
addr2 + nnc; \ 

Fwd2 <addr2, addr 1. addrO, dAG, dAH, dBG, dBH) ; \ 

addr3*rinc; \ 

while ( addr 3 <end) { \ , - 

Fv*13(addr3,dAG,dAH,dBC,dBH) ; \ 

addrO+=inc; \ 

FwdO ( addr 0 , addr 3 , addx2 , dAG , dAH , dBG , dBH ) ; \ 
addrl*=inc; \ 

Fwdl ( addr 1, dAG, dAH, dBG, dBH ) ; \ 
addr 2 ♦ * inc ; \ 

Fvd2(addr2,addrl, addrO,dAG,dAH,dBG,dBK) ; \ 
addr3*=inc; \. 

) \ 

FwdE {addr 3 , addr 2 , dBG, dBH) ; 

extern void FASTFORWARD < char 'data, long incl. long endl, long inc2, char *end2); 
extern void HAAKFORWAJQ ( char 'data, long incl, long endl. long ine2, char »end2); 

void FastForvard(char *data, long incl, long endi. long inc2, char *end2) 

t 

register short v, vs, v3, dAG, dAH, dBG, dBH, inc.* 
register char •addrO, 'addrl, «addr2. *addr3, *«nd; 
char *base; 

incsincl; 

£or(base»daca;base<end2 ;base+=inc2 > ( 
endabase+endl; 
Fwd (base, end. inc) ; 

) 


void Daub4Forward( short •data, int sire(2l, int oct_dst> 
( 

int oct. area»siz# [0] *3ii* [1]<<1; 

short width=size(OJ«l; 

char *top-area+ (char # )data, *left=width+ (char *)data; 

fcr t oct =0; oct ! =oct_dst;oct+*> { 

long cinc*2<<oct , cinc4=cinc«2 . 

rmc=six» (0 J <<oct + l, rinc4 = rinc«2 ; /• col and row increments in t- 

FASTFORWARD (( char *) data, cinc4 ,width-cinc. rinc, top) ; 
FASTFORWARD ( ( char •) data, rinc4 ,axea-rinc, cine, left ) ; 

) 

) 

void HaaxForv*rd( short *data, int size (2], int oct_dst) 
( 

int occ# areaasiiefOJ •size{l]«l! 
short width«si2e(0]«l; 

char -top* area* (char *)data» *le£t3width^(char *)data; 

f or ( oct »0 ; octi-oct.dat; oct ( 

long cinc»2«oct, cinc2*cinc<<l . 
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rinc^siie (0 ] <<oct ♦ I . r inc2= r inc<< 1 ; /• coi and row increments in t 

HAARFORWARD ( (char • ) data , c inc2 , width . rinc. top: : 
HAARFORWARD { (char »i data . nnc2 . area . cine . left : , 


vcid Hybr*dForwardl shor: -data, int siie(2], int oct_dati 

( 

int oct , area=size(0 ] 'size f 11 «1; 

short width = size f 0 J <<I ; 

char *top=area* (char *)data, * left »width* (char -)data; 

HAARFORWARD { (char * ] data , A , width. size [0] <<1, top) ; 
HAARFORWARD ( ( char * ) data , sue ( 0 } <<2 , area, 2. left) ; 
for (octal ;oct :=oct„dst ;oct*+) ( 

long cinc=2<<oct. cinc4=cmc<<2 , 

rinc«size [0] <<oct*i, rinc4=rinc<<2 ; /* col and row increments in t 

FASTFORWARJD ( I char *) data , cine 4 . width- cine , rinc, top) ; 
F ASTFORWARD ( (char ♦) data . rinc4 , area- r inc . cine, left ) ; 

} 

) 

♦define BwdSO ( addrO , dAG , dAH , dBH ) \ 
v=" (short »)addrO; \ 
dAG = -(v3=v+<vS=v«l) ) ; \ 
dAH.v*< vs«sl) ; \ 
dBH=vs<<l; \ 

* define BwdSl (addrl , addrO. dAG, dAH, dBH) \ 
v=* (short ♦ ) addrl; \ 

CiBH*s(VS-V«l) ; \ 

v3=vs*v; \ 

dAC*av3* ( vs«s2 ) ; \ 

dAH-*v3*(vs<<*l> ; \ 

* { short ')addrO*(dBH*3)»3; 

•define Bwd2 ( addr 2 , dAG , dAH , dBG , dBH ) \ 
v=*( short *)addr2; \ 
dBC= - t v3=v+ ( vs=v<<1 J ) ; \ 
dBH-v+ (vs<<=l ) ; \ 
dAH*sv3* (vs« = l) ; \ 
dAG*=v3* (vs<<=! ) ; 

■define Bwd3 ( addx3 , addr 2 , addrl . dAG , dAH , dBG . dBH ) \ 
vs* (short *>addr3; \ 
dAH*= (v3*v*<vs«v«l) ) ; \ 
dAG+sv+ (vs«sl) ; \ 
dBG*=v3* <vs«=l) ; \ 
dBH-*v3+(vs« = l) : \ 
•(short *)addrl=(dAH*7)>>4; \ 
•(short *)addr2a(dAG*7)»4; 

♦ define BwdO ( addr 0 , dAG , dAH , dBG , dBH ) \ 
vs* (short MaddrO; \ 
dAG= - (v3=v* <vs»v«l) ) ; \ 
dAH=v+<vs«=l) ; \ 
dBH*=v3*(vs«sl) ; \ 
dBG+«v3* (vs<<=l) ; 

#define Bwdl ( addrl , addr 0, addr 3, dAG, dAH. dBG. dBH ) \ 
v=* (short •) addrl; \ 
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dBH* = ( v3 3V+ ( V3«**<<1 ) ) ; \ 
dBG*=v* ' vs<<» 1 ) ; \ 
dAG*=v3 ♦ i V3<<-1 ) ; \ 
dAH-avJJ* ivs<<*1 ) : \ 

•(short • ) addr3= (dBH+7) »4; A 

*( shore MaddrO=(dBG+7)>>4; 

'define BwdE2 (addri . dAG. dAH.dBH) \ 
v=* ( she re • 1 addr2 ; \ 
v3=v+ (vs=v« 1 ) ; \ 
dBH=(vs<<»2) ; \ 
dAH*=v3+vs; \ 
dAG*=v3+(vs<<=l) ; 

*de£ine Bwd£3 ( addr 3 , addr 2 , addrl , dAG. dAH. dBH ) \ 
v=-( short *)addx2; \ 
dAH*= (v3=v> (vs=v<<1) ) ; \ 
dAG+»v+ (vs«al ) ; \ 
dBH-=v3+<vs<<=l) ; \ 
dBH-*v3 + {vs«=l) ; \ 
•(shore *)addrl=tdAH+7)»4; \ 
Mshort *) addr2=(dAG*7)»4; \ 
short Maddr3=(dBH+3)>>3; 

^define Bwd (base, end, inc) \ 
addrO=base; \ 
addr3«addr0- ( inc>>2) ; \ 
addr2saddr3- ( inc>>2) ; \ 
addrl=addr2- ( inc>>2-) ; \ 
BwdSOUddxQ,dAG,dAH,dBH) ; \ 
addrl* =inc; \ 

BwdSl (addrl. addrO, dAG. dAH, dBH) ; \ 

addr 2+ a inc; A 

while (addr2<end) { \ 

Bwd2 Uddr2,dAG,dAH,dBG,dBH) ; \ 

addr3+=inc: \ 

Bwd3<addr3,addr2,addrl,dAG,dAH,dBG,dBH); \ 
addrQ+*inc; \ 

BwdO < addr 0 , dAG , dAH . dBG , dBH ) ; \ 
addrl* cine; \ 

Bwdl {addrl , addrO . addr 3 . dAG. dAH, dBG. dBH) ; \ 
addr2**inc; \ 

) \ 

BwdS2(addr2,dAG,dAH,dBH) ; \ 
addr3*=inc; \ 

&wd£3 ( addr 3 , addr 2 , addrl , dAG , dAH , dBH ) ; 

extern void FASTBACKWARD ( char *data, long incl. long loopl, long inc2, char *end2> 
extern void h aarbackward ( char *data, long incl, long loopl, long inc2. long loop2) 
extern void HAARTOPBWD ( char * data, long height, long width); 
/■ extern void haarxtopbwd ( char 'data, long area);*/ 

void Fa st Backward (char *data, long incl. long endl, long inc2, char *end2) 

( 

register short v, vs. v3, dAG. dAH. dBG. dBH. inc; 
register char *addrO, * addrl, *addr2, *addr3, -end; 
char • base i 

inc s incl; 

f or (basesdata;bas«<end2;base-i»sinc2) ( 
endabase+endl : 
Bwd (base , end. inc ) ; 

) 
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void Daub4Backward ( shore *data,inc siie(?j.:nc ocr_src) 

in; ccc. area*size|0]«siz«d)«l, 
shor- width=3ize[01<<l; 

char •cop=a_rea» (char # )data. • left =width* ( char *)data: 

for ( oc: =occ.src-l; oct>=0;occ --) { 

long cinc=2<<oct. cinc4=cinc<<2 . 

rincsaue (0) <<oct +1. rinc4 = nnc<<2 ; /* col and row increments in t 

FAST3ACKWAJ*D( (char *) data . rinc4 , area- ( rinc«l ) ,cinc. left) ; 
FASTBACKWARD ( (char *) data , c inc4 , width- icmc«l) . rinc. top) ; 


void HaarBac)cward(data. size, oct_src) 

short *data; 

int size[2] , oct_src; 

{ 

inz ocz, area=size(0) *size[l ) <<1; 

short width-size [0 ) <<1; 

char • top*area+ (char # )data, * left =width+ (char *)data; 

for (cct=oct_src-l;oct>0; oct--) ( 

long cinc=2<<oct , cinc2=cinc<<l. 

rinc=size(0]«octi-l, rinc2=rinc«l; /• col and row increments in t 

HAARBAC XWARD I (char * )data, rinc2. sized] >>oct , cine, size [0 ] >>oct ) ; 
HAARBACXWAKD ( (chax * )data. cinc2 , size [0] »oct. rinc, size (1] »oct ) ; 

) 

HAARTorBWD( (char -)data, sizedl . size{0J ) ; 
/* HAAJOCTOPBWD ( (char • )data. area»l > ; •/ 

) 

void HybridBacJcward (data, size, oct_src) 

short *data; 

int size£2], oct_src; 

( 

int oct. areaasize(O) 'size 1 1 )<<i ; 

short width»size { 01 «i ; 

char * top=area* (char *)data, left =width* < char -Jdaca; 

i or (oct«oct_src-l; oct>0;occ--) { 

long cinc=2<<oct , cinc4=cinc<<2 , 

rinc=size(0]«oct+l, rinc4-rinc«2 ; /* col and row increments in z 

FASTBACKWARD ( ( char * ) daca . rinc4 . area- ( r inc«l ) , cine , lef t ) ; 
FASTBACKWARD ( (char *) data, cinc4 , width- ( cinc«l ), rinc , top) ; 

) 

haartopbwdi (char *>data, sized] * sizelO] ) ; 
/• HAAWCTOPBWD( (char »)data,area»l) ; •/ 

) 
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Written by: Adrian Lewis 


53000 Fa at Forward /Backward code 


seg 

'klics ■ 


macro 



FvdStart 

&addrC,fidAG,&dAH 


move • w 

(&addr0) . dO 

r vs» (short MaddrO 

move . w 

d0,dl 

; V5=v 

add. w 

dl.dl 

; V9«ml 

move • w 

<U.d2 

; v3=va 

aoa. w 

d0,d2 

; v3=vs-*-v 

move . w 

d2,&dAG 

; dAG=v3 

add.w 

dl,dl 

; vs<<=l 

add.w 

d0,&dAG 

; dAG+ »v 

add.w 

dl.&dAG 

; dAG+=vs 

move . w 

d2, idAH 

; dAH*v3 

add.w 

di.dl 

; V9«sl 

add . w 

dl.fcdAH 

; dAH*«V8 

add.w 

d2,fcdAH 

; dAH+*v3 

add. w 

dl.dl 

J VS<<=1 

add.w 

dl,idAH 

• dAH+-vs 

•ndra 



macro 



FwdOdd 

taddx 1 , 4dAG , fcdAH . 4tdBG , &dBH 

move.w 

(4addrl),d0 

v«M shore » ) ftddrl 

move, w 

dO.dl 

vs=v 

add.w 

dl.dl 

vs«»l 

move.w 

dl.d2 

v3»vs 

add.w 

d0,d2 

v3«vs*v 

move . w 

d2,idBG 

dBG=v3 

add.w 

dl.dl 

vs<<rl 

add.w 

dCtdAH 

dAH**v 

add.w 

dl.&dAH 

dAH+=vs 

move . w 

d2,&dBH 

dBH*v3 

add.w 

dl,dl 

VS<<rl 

add.w 

dl , &dBH 

dBH+svs 

sub, w 

d2,&dAG 

dAG-=v3 

add.w 

dl,dl 


sub.w 

dl.&dAG ; 

dAG-xvs 

endm 



macro 



PwdBven 

taddr 2 . &addrl , ftaddrO , &dAC , idAH , &dBC . 

move . w 

(&*ddr2),dO 

v=* (short *)addr2 

move.w 

dO.dl 

V8»V 

add.w 

dl.dl 

V9«al 

move.w 

di,d2 

v3=vs 


CMDCT1TUTC CUCCT /Dill C OC\ 


WO M/2J335 


PCT/GB94/0M77 


- 718 - 


Engineering : KlicsCcde : CompPic- : Ccnvc 1 veSH3 . a 


add. v 

^ dO . d2 

; v^vs + v 

sub. v 

d2 , &dAH 

; dAH - =V 3 

add. w 

dl.dl 

; VS<<=1 

add. w 

dO, tdBC 

■ dBG*=v 

add. w 

dl. tdBG 

; dBG*=vs 

add. w 

d2 . &dAG 

; dAG*=v3 

add . w 

dl , dl 

; VS<<=1 

add . w 

dl.idAC 

; dAG^svs 

add . w 

d2 , &dBH 

; dBH+=v3 

add . w 

dl.dl 

; VS<<=1 

add. w 

dl , idBH 

; dBH^rvS 

c 1 r . w 

dO 

; d0=0 


aar . w 

#5, 4 dAH 

• dAH>>= 

■5 

addx.w 

dO , &dAH 

; round 

dAH 

asr . v 

#5. idAG 

■ dAG»i 

5 

addx.w 

dO , &dAG 

• round 

dAG 

move . w 

&dAH. (iaddrO) 

- •( short -)addr0=dAH 

move . w 

&dAG, (iaddrl) 

* ■ i short *)addrlsdAG 

mend 




macro 




FwdEnd 

&addr3 , &addr2 . idBG. idBH 


move . w 

(&addr3) ,d0 

vr • ( short * ) addr3 

add.w 

d0,d0 

v<<= 1 


add.w 

dO.idBH 

dBH*«V 

lsl.w 

• 2,d0 

v<<=2 


sub. w 

dO.idBG 

dBG-=v 

clr .w 

dO 

dO.O 


a ^ y w 

#5,fidBH ; 

d£H»* 

5 

a ax.w 

dO.&dBH 

round 

dfiH 

a sr . w 

#5,&dBC 

dBG»=5 

addx . w 

dO , 4dBG 

round 

dBG 

inove . W 

&dBH, (&addr2) ; 

* ( short * > addr 2 =dBH 

move . w 

&dBG. (&addr3) 

* ( short • ) addr 3 =<3BG 

endro. 




macro 




Fwd 

&bas«, &end. Line 



movea . 1 

&base, aO 


; addr 0= base 

move * l 

tinc.dO 


; d0=inc 

aal . X 

#2. dO 


; d0*inc»2 

moved . 1 

aO, a3 


; addr3saddrO 

suba . 1 

d0.a3 


; addr3-= < inc>>2 ) 


a3,a2 


; addr2»addr3 

suba • 1 

d0.a2 


; addr2-= ( inc>>2 } 


a2, al 


; addxl*addr2 

suba . 1 

dO.al 


; addrl-*<inc>>2] 

FwdStart 

a0.d4.d5 


* FwdStart (addrO. dAG, dAH) 

adda. 1 

&inc.al 


* addrl+=inc 

FwdOdd 

al,d4,d5,d6.d7 


• FwdOdd ( addx 1 . dAG . dAH , dBG , dBH) 

adda. 1 

&inc,a2 


addr 2*= inc 

FwdEven 

a2,al,a0,d4.d5,d6,d7 

FwdEven ( addx2 , addr 1 . addrO , dAG 

adda.l 

&inc.a3 


addr3+ainc 

FwdOdd 

a3.d6.d7,d4,d5 


FwdOdd { addx 3 , dBG , dBH , dAG , dAH ) 

adda.l 

&inc,*0 


addrO*s»inc 

FwdEven 

a0,a3,a2,d6.d7, d4,d5 

FwdEven < addr 0 , addr 3 , *ddr2 , dBG 

adda. 1 

Ainc.al 


addjcl+oinc 

FwdOdd 

al,d4,d5.d6.d7 


F wdOdd ( addr X . dAG . dAH , dBG , dBH ) 

adda. 1 

& inc . a2 


addr2+=inc 
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FvdEven 
adda. 1 
cmpa . 1 
bgt .w 
FwdZnd 

en dm 


9 do 


a2, al.a0,d4,d5.d6.d7 

tine. a3 

a3,&end 

Sdo 

a3,a2.d6,d7 


FwdZven: addr2 . acdrl . addrO ,dAG, dAH. dB- 

addr3+* :nc 

addr3<end 

while 

FwdEnd ( addx 3 . addr 2 , dBG . dBH ) 


rfard FUNC 

EXPORT 


link 

a6,#0 

; no local variables 

tnovem. 1 

d4-d7/a3-a5. - (a7j 

; score registers 

move. 1 

S000C(a6) ,d3 

; inc=incl 

movea. 1 

S0008 U6) ,a5 

; base^data 

raovea. 1 

a3,a4 

: end =base 

adda. 1 

$0010(a6),a4 

; end+sendl 

Fvd 

a5,a4,d3 

; Fwd ( base . end , inc J 

adda.l 

S0014 <a6) ,a5 

; base+=inc2 

cirwa. 1 

$0018(a6),a5 

; end2>baae 

bit.w . 

Gdo 

; for 

movem. 1 

<a7)*,d4-d7/a3-a5 

,■ restore registers 

unlk 

a6 

; remove locals 

rta 


; return 

ENDFUNC 




macro 



BwdStartO 

&addrO, S.dAG, fcdAH, &dBH 

move . w 

UaddrO) ,d0 

; v»* (short *)addrO 

move . w 

dO,dl 

; vs»v 

add .w 

dl.dl 

; vs<<«=1 (vs«2v) 

add.w 

dl.dO 

; V+«V3 (V=3v) 

move . w 

dO , 4dAG 

; dAC«v3 

neg.w 

&dAG 

; dAGs -dAG 

move, vr 

dO.&dAH 

; dAHcv 

add.w 

dl.idAH 

; dAH+«va 

lal.w 

#2,dl 

; va<<=2 (vs=8v) 

move. w 

dl.&dBH 

; dBH«vs 

endm 



macro 



BwdStartl 

iaddr 1 , iaddr 0 , idAG , 4 dAH , 4dBH 

move . w 

Uaddrl) .dG 

; v=* (short *)addrl 

move. w 

dO,dl 

; vs=v 

add.w 

dl.dl 

; vs«»l 

add.w 

dl.&dBH 

; dBH+.va 

add.w 

dl.dO 

; v+svs (v=3v) 

lsl.1 

#2,dl 

; vs««2 (vs»8v) 

add.w 

dl.dO 

• V+SV3 (Vallv) 

add.w 

dO.idAG 

- dAG— v 

add.w 

dl f dO 

' v+avs (V=19v) 

sub. w 

dO,idAH 

• dAH-=v 

clr. w 

dO 

dO=G 

aar . w 

#3,&dBH 

d£H»«3 

addx.w 

dO,fcdBH 

round dBH 

move.w 

tdBH. UaddrO) 

♦(short *)addrO*dBH 

endm 
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Tacrc 

HwdEven &addr2 , 4dAG , &dAH. tdBG. &dEH 


t.cvc . w 
T.cve . *w 
add . v 
add . w 
move . w 
neq . w 
move . w 
add.u 
isl . w 
add.w 
add. v 
add . v 
add.w 


!&addr2> . 
dO.dl 
dl.dl 
dl, dO 
dO. tdBG 
idBG 
dO , &dBH 
dl. tdBH 
#2.dl 
dl.dO 
dO. idAH 
dl,dO 
dO . tdAG 


dO 


v=* (shore ')addc2 
vs=v 

vs<<=1 (vs=2v) 

v*=vs <v=3v) 

dBG-v 

dBG= -dBG 

dBH-v 

dBH*=vs 

V3<<=2 (vsa8v) 

V+sV3 (V»11V) 

dAH-=v 

v+svs lv=l9v) 
dAG*=v 


endm 


macro 
BwdOdd 

move . w 

move .w 

add.w 

add.w 

add.w 

add.w 

add.w 

lsl.w 

add.w 

add.w 

add.w 

sub. w 

clr .w 

asr ,w 

addx . w 

move . w 

dsr.w 

addx . w 

move . w 


&addr3 , taddr2 . &addrl . &dAG . tdAH , &dBG . tdBH 


<&addr3) .dO 

dO.dl 

dl.dl 

dl,dO 

dO.&dAH 

dO . idAG 

dl . &dAG 

*2.dl 

dl.dO 

dO.idBG 

dl.dO 

dD.&dBH 

dO 

*4,&dAH 

dO,&dAH 
idAH, t&addrl) 
M,idAG 
dO.fcdAG 
idAG. (&addr2) 


vj" (short e )addr3 

V3sV 

vs<<»1 <vs=2v) 

V*=V9 (v=3v) 
dAH*sv 
dAG*»v 
dAG+*vi 

vs<<=2 (vs«8v) 

V4SV9 (V=11V) 

dBG+«v 

v*»vs (vsl9v) 
dBH-»v 
d0=0 
dAH»«4 
round dAH 

•(short # )addrl=dAH 

dAG»»4 

round dAG 

• ( short * ) addr2*dAG 


endm 


macro 
3wdEnd2 

move . w 

move . w 

add.w 

add.w 

lsl.w 

move.w 

add.w 

add.w 

add.w 

add.w 


& addr 2 * &dAG . &dAH , &dBH 


(&addr2) 

dO.dl 

dl.dl 

dl.dO 

*2,dl 

dl.&dBH 

dl.dO 

dO.&dAH 

dl.dO 

dO,&dAC 


,d0 


v= • ( short • ) addx 2 
vs*v 

v»««l (vs«2v) 
V**V3 (vs3v) 

V3<<=2 (VSaSv) 

dBHavs 

V*»VS (VallVl 
dAH+»v 

VtaVS (V»19V) 

dAG+=v 


endm 


macro 
3vdEnd? 


r £ addr*» . 4addr2 . Saddrl . &dAG . &dAH . &dBH 


ri inr-n-rt itt rucrv mi h r 
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fldo 


move . w 
move . w 
add.w 
add. w 
add. w 
add. w 
add. w 
add. w 
lsl.l 
sub.w 
clr.w 
aar.w 
addx. w 
move . w 
asr.w 
addx. w 
move . w 
asr.w 
addx. w 
move . w 

endm 


(&addr3 ) , dO 
dO.dl 
dl.dl 
dl.dO 
dO , tdAH 
dO. idAG 
dl , tdAG 
dl . idflH 
*4,dl 

dl,&dBH 

dO 

W4.&dAH 
d0,&dAH 
&dAH, t&addrl) 
#4,£dAG 
dO , idAG 
&dAC, (&addr2) 
#3,&dBH 
dO, tdBH 
&dBH, u addr 3) 


*)addr3 


macro 
fivd 

- movea . 1 
move . 1 
aar . 1 
movea . 1 
suba. 1 
movea . 1 
suba . 1 
movea . 1 
suba. 1 
BvdStaxtO 
adda.l 
BwdStartl 
adda.l 
BwdEven 
adda.l 
BwdOdd 
adda . 1 
BwdEven 
adda.l 
BwdOdd 
adda.l 
cmpa. 1 
bgt 

BwdEnd2 
adda. 1 
BwdEnd3 

endm 


<V5=2V) 

(v=3v) 


(v=32v) 


; vs* (shore 
; vs=v 
; va<<il 

; dAH+=v 
; dAG+=v 
; dAG-r=V3 
; dBH+avs 
; vs<<=4 
; dBH-=vs 
; d0=0 
; dAH»»4 
; round dAH 
; M short ')addrirdAH 
; dAG>>=4 
; round dAG 
; '(short 'Jaddr2=dAG 
; dBH>>=3 
; ^ound dfiH 
; *< short Maddr3=dBH 


ibaae , tend, tine 

tbase, aO 

tine, dO 

#2.d0 

a0.a3 

d0,a3 

a3,a2 

d0,a2 

a2.al 

d0,al 

a0,d4,d5,d7 
&inc,al 

al,a0,d4,d5,d7 
&inc, a2 

a2,d4,d5.d6.d7 
&inc, a3 

a3,a2.al,d4,dS,d6,d7 
&inc. aO 
a0.d6.d7,d4.d5 
tine, al 

al.aO, a3,d6,d7,d4, d5 
&inc. a2 
a2, &end 
ddo 

a2,d4,d5,d7 
Lineal 

a3,a2, al,d4, d5,d7 


FastBaclcward 

link 
mo vera. 1 

move. 1 
movea . 1 


FUNC EXPORT 
a6,#0 

d4-d7/a3-a5,-(a7) 

$000C(a6) ,d3 
S0008(a6) ,a5 


; dddrOabase 

; dOsinc 

; d0ainc»2 

; addr3=addr0 

; addr3-* <inc»2) 

; addr 2 « addr 3 

; addr2-=(inc»2) 

? addrl=addr2 

r addrl -«(inc»2) 

• BwdStartO (addrO, dAG, dAH, dBH) 

r addrl*=inc 

BwdStarr 1 ( addr 1 , ajidrO , dAG , dAH , dBH) 

addr2*sinc 

BwdEven ( addr 2 . dAG , dAH , dBG . dBH ) 
addr3+»inc 

BwdOdd (addr 3 , addr 2 . addrl . dAG, dAH. dBG 
addrO+«inc 

BwdEven ( addrO , dBG , dBH , dAG , dAH ) 
addr l*=inc 

BwdOdd ( addrl , addr 0 , addr 3 , dBG . dBH , dAG 

addr2+-inc 

addr 2 < end 

while 

Bwd£nd2 { addr 2 , dAG • dAH * dBH ) 
addr 3+ =inc 

BvdEnd3 ( addr 3 , addr 2 , addrl . dAG , dAH , dB 


no local variables 
score registers 


inc»incl 
base*data 


Ct torTtTt itp n if-r-r /run r <-»r»\ 
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9 do 


rr.ovea . 1 
adda . 1 
Bwd 
adda . 1 
cmpa . 1 
bit . w 


a5,a< 

$0010ia€) 
a5.a4.d3 
$0014 ia6; 
$0018la6) 
(3 do 


a4 

aD 
a5. 


end=fcase 

end* -end! 

Bwd (base. enc. nc: 

base* = inc2 

endi^base 

tor 


urlk 
res 


(a t ) - 
a6 


,d4-n?/a3-a5 


restore registers 
remove locals 
return 


ENDFUNC 
END 
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* © Copyright 1993 KLICS Limited 
All right* reserved. 

written by: Adrian Levis 

; 

Test versions of colour space conversions in C 

v 

* include <Memory.h> 
"include <QuickDrav. h> 

wdefine NevPointer (ptr, type, siie) \ 
savezone=GetZone<) ; \ 
Set2one (SystemZoneO ) ; \ 
if (nil»a(ptrs(type)NewPtr (size) ) ) { \ 
Set2one(ApplicZone< ) ) ; \ 
if (nil=s(ptr=(type)NewPtr(size))) { \ 
Setzonet savezone) ; \ 
return (Memory Error ( ) ) ; \ 

) \ 

J \ 

Set Zone ( saveZone ] ; 

typedef union ( 

long pixel; 

char rgb(4J; 
) Pixel: 

/* Special YUV space version •/ 
#define rgb T yuv(pixmap» Yd \ 

pixel. pixel«0x808080^*pixmap*f; \ 

r> ( short) pixel. rgb til ; \ 

gs (short ) pixel. rgb [2] ; g*=g; \ 

b* f short) pixel. rgb(3 J; \ 

Y*(b«3)-b; \ 

0*=r; \ 

Y+=g*g+g; \ 

Y»*4; \ 

Y*=g; V 

•Yc+^trY; \ 

Y»*2; \ 

U+*b-Y; \ 

V*=r-Y; 

#define limit (Y, low, high) \ 

Y< ( lov<<2 ) ? low«2 : Y> ( high«2 ) ?high«2 : Y 

/• Standard YUV space version - Bt294 CR07(0) mode limiting •/ 
*define rgb_yuv32 (pixmap. Yc) \ 

pixel. pixel -0x8 08 08 0 A *pixmap*n-; \ 

r= (long) pixel. rgb(l) ; \ 

g=(long)pixel.rgb[2) ; \ 

b- (long) pixel. rgb( 3] ; \ 

Y« (306*r + 601-g * 117*b)>>8; \ 

•Yc+* - limit(Y,16-128, 235-128); \ 

U*» (512T - 42S*g - 83*b)»8; \ 

V*« (-173*r - 339*g ♦ 512'b)»8; 

void P.GB2YUV32 Mnng *pixmap. short *Yc ( short *Vr . shorr: •Vc, inc area, int win 
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long •pixmap2«pixjTLap*cols . 'row. * end=pixmap-area ; 
short •Yc2*Yc+width; 

wr.iie ( pixmap<end) ( 
rov=pixmap+ width; 
while (pixjnap<row) ( 
Pixel pixel; 
iong r . g, fc, Y , U=0 , V = C ; 

rgb_yuv3 2 {pixmap. Yc) ; 
rgb_yuv32 (pixmap, Yc) ; 
rgb_y-uv3 2 (pixmap2, Yc2) ; 
rgb_yuv3 2 ( pixmap2 , Yc2 > ; 
D>>=2 ; 
V>>=2 ; 

*Uc+*=Limit (U. 16-128,240-128) ; 
*Vc***limiC (V, 16-128.240-128) ; 

) 

pixroap+rcols+cols-width; 
pixroap2+=cols+cols -width; 
Yc*=width; 
Yc2+-width; 

) 

) 

typedef struct f 

short ry , rv, by, bu; 
) RGB.Tab; 

OSErr RGBTable < long "tab) 

i 

RGB.Tab 'table: 

int i ; 

TKz saveZone; 

NewPo inter (table . RGB_Tab* , 256 * sizeof (RGB_Tab) ) ; 
•tab* (long •) table; 
for(i=0;i<128;i++> { 

table[i] .ry=306*i»8: 

tabled] .rv=173*i»8; 

cabled] .fcy=*117-i>>8; 

tabled! .bu=83*i»8; 

J 

for i 1=128 ; i<2 56; ( 

tabled] . ry=306* ( i-256) »8 ; 
tabled) . rv=173Mi-256)»3; 
cabled) .by=117* ( i-256) »8 : 
cabled) . bu»83* ( i-256) »8; 

) 

return inofirr) ; 

) 

typedei struct ( 

short ru. gu, bv. gv; 
) UV32_Tab; 

UV32_Tiib •UV32_Table( i 

( 

UV32_Tab *table; 
int i ; 

table* (UV32_Tab • )NewPcr (256*sizeof (UV32_Tab) > : 


ciiorTmiTr Mirrr mi h r 
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£or(i = C;i<el28;i*-» ( 

table (i) . rus 12 8* ( 14 36* i»lO> ; 
catl«(i] .gu = i28*(-731»i»i0) ; 
cable (i) .bvsl28*( 1815*i»10) ; 
cable Ci] .gv=-352 ' i»10; 

) 

tori i = 128: i < 2 5 € ; i**) { 

cablet il . rus 12 8* i 14 36 • ( i -2 56 ) >>10 ) ; 
table U) .gu=128+ (-731' (i-256) >>10i ; 
"cabled] .bv=128+ ( 1815* ( i-256 )>>10) ; 
cable(i] .gva-352* t i-256) >>10; 

) 

return! cable) ; 

} 

typedef scrucc ( 

long u, v; 
} OV32Tab; 

OSErr UV32Table < long "tab) 

( 

long •ytab; 
UV32Tab •uvtab; 
inc i; 
thz save zone; 

NevPoint©r{ 'tab. long* , 512 •sizeof ( long) +512 *3izeof (UV32Tab) ) ; 
ytabe*tab; 

uvtab= (UV32Tab* ) 4ytab(312 ] ; 
for (i»-256; i<256; i+*> ( 
long yyy, sp; 

sp=0x000000fe&(i<-12e?0:i>127?255:i+12a> ; 
yyyasp; yyy«-8; 
yyyl=3p; yyy<<»8; 

yyyi^sp; 

ytabfOxOOOOOlf f4i)=yyy; 

) 

for(i*-256;i<256;i+«.) ( 
long ru,gu,bv,gv; 

ru=0xf£f fff fe 4 t 1436*i>>10) ; 

gu=0x000001fe & i-731*i»10); 

bv=0x000001fe 4 (1815*i»10); 

gv=0x000001£e 4 (-352*i»10); 

uvtab[Ox000001FF4i] .u=< (ru«8) lgu)«8; 
uvtabl0x000001FF&i] .va (gv«8) Ibv; 

) 

return (noErr) ; 

1 

typed* £ struct { 

short Ui v; 
) UV16Tab; 

OSErr uvi6Table(long **tab) 

{ 

short *ytab; 
UV16Tab *uvtab; 
inc i; 
THz savezone; 
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Newpo inter ( *tab, long- , 512*sizeof (short: : - 512 * sizeot ;'JV16Tab> ) ; 
ytabs* (short '*)tab; 
uvcab= (UV16Tab # ) &ytab[512] ; 
f.or( i = -256r i<256:i**) ( 

long yyy. sp; 


sp.OxOO 0000 lei I < i<- 12970 : i>127?2 55 : i *128 I >>3 1 ; 
yyy=sp: yyy<<=5; 
yyy!=sp; yyy«s5; 
yyyl^sp; 

yiab(0x000001f ffiLil=yyy; 


for ( is-256: i<256;i*+) ( 
long ru,gu,bv,gv; 


ruaOxfif £ffff« & <1436*i>>13) ; 
gu=0xG000003e & (-731*i»13); 
bv=0x0000003e & U815*i>>13); 
gv -0x0000003e 4 ( -352* i>>13) ; 


uvtab{Ox000001FFti] .u=( (ru«5) 1<7U><<3: 
uvtab[OxOQ0001FT»i] .v=(gv«5) Ibv; 

i 


) 

return (noErr ) ; 

1 


♦define overlval) \ 

( (OxFFOOt (val) ) =* 0 ) ? (char) val : va 1<0?0 : 2 5 5 


/• Standard YUV space version •/ 
fdef ine yuv_rgb32 (pixmap. Yc) \ 
Ys(*Yc+->»2; \ 
pixel. rgb[l] =ov«r(Y«r) ; \ 
pixel. rgb[2)*over(Y*g); \ 
pixel. rgbt3) = over ( Y+b) ; \ 
•pixmap* * spixel - pixel ; 


void YUV2RGB32(long -pixmap, shore -Yc. shore *uc, shore •Vc. int area, inc wid 


( 

long *pixinap2»pixmap*cols. *row, •enc»pixniap+area ; 
short •Yc2=Yc*width; 


while (pixmap<end) ( 
rovspixmap+width; 
while (pixmap<r owl < 
Pixel pixel; 
long r,g,b,Y,U.v ; 


U=(*Uc+*)>>2; 
V» { »Vc++> >>2; 
r=128«-(1436*U»10); 
g=128*(-731»U - 352*V»10); 
b»128*(1815*V»10); 


yuv_rgb32 (pixmap. Yc) ; 
yuv_rgb32(piwnap,Yc) ; 
yuv_rgb32(pixmap2,Yc2) ; 
yuv_rgb32(pixmap2,Yc2) ; 

) 

pixmap**coi spools -width; 
pixmap2 ♦•cola +co Is -width; 
Yc+swidth: 


- 

cnocriTMTC rucrr /dim c io 
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Yc2+*width; 


} 

1 


*decine rgb32_yuv (pixroap, Yc ) \ 

pixel. pixel = 0x808080**pixmap*«-; \ 

r=pixel.rgb(l!: \ 
g=pixel -rgbt2 ] ; \ 

Y= P (tablMOxFFtr] .ry ♦ (g«2 ) -table(OxFFtg] . ry- table [OxFF&g] . by «■ cable(OxFF&b 
•YO* = limit (Y. 16-128,235-128) ; \ 

U*» (r«l) -g -cable [OxFF&g) .rv - table ( OxFTtb) .bu; \ 
v+a <b«l) -g -cable [OxJTFir) .rv - table [OxFF&g] .bu; 

void RGB32 YW ( RGB_Tab * table, long 'pixjnap. short *Yc. short *Uc, short *vc, int 

long •pixmap2»pixxnap+col3, *row, *end«pixmap+area; 
snort *Yc2=Yowidth; 

while (pixxnap<endi { 
row3pixmap+width; 
while (pixmap<row) { 
Pixel pixel; 
long r,g,b,Y,U=0,V«0; 

/» rgb32_yuv(pixmap,Yc) ;*/ 

pixel. pixel = 0x80e080~*pixmap+«>; 
r^pixel. rgb(l] ; 
g »pixel . rgb [ 2 ] ; 

Y« P Kabie?Oxy?&r].ry ♦ (g«2 ) -cable (OxFF&gl . ry- cable I OxFFtg] .ty - tabl 
•Yc*+ = limit (Y, 16-128 . 235-128 > ; 

U*« (r«l) -g -table (OxFTfcg) .rv - table ( 0xFF4b) .bu; 
V*« ib«l) -o -table (OxFFtrl . rv - cable (OxFF&g] .bu ; 

rgb32_yuv(pixnap, Yc) ; 
rgb32„yuv (pixnap2 , Yc2 ) ; 
rgb32„yuv(pixmap2,Yc2) ; 
U»»2; 
V»=2; 

•UO+slimitlU. 16-128, 240-128) ; 
*Vc**slimit (V, 16-128. 240-128) ; 

p ixmap**cols*ce Is -width ; 
pixjnap2 + acols*cola-width; 
Yc^swidch; 
Yc2*«width; 


#define yuv_rgb32x2 (pixmap, Y> \ 
pixel. rgb [ 1] =over<Y+r) ; \ 
pixel. rgb( 2] -over <Y+g); \ 
pixel.rgbC33=over(Y+b); \ 
pixroap(cola1=pixel. pixel: \ 
*pixmap+*=pixel . pixel ; 

void YUV2KGB32x2(UV32_Tab -table, long -pixmap, short: Mfc. short *Uc. short -vc, 

{ long *pixjnap2-pixjnap+2«cols f 'row, * end- pixmap* area; 
Short *Yc2aYC*width; 


ci ioctiti itc currT mi m c 
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while (pixnapx end) ( 

long Ycld=«Yc>>2, Yold2= *Yc2>>2; 

rowapixmap+widch* 2 ; 
while (pixir\ap< row) ( 

Pixel pixel; * 

long r,g,b,Y.U.v ; 

U=0x00FF& ( ( *Uc*^ ) >>2 ) ; 
V=0x00FF&( (*Vc*+)>>2) ; 
ratable (Ul . ru; 
g^cableiU] .gu+table [V] .gv; 
b*cable{V] .bv; 

Y=CYC+*)>>2; 
Yold=(Y+Yold)»l; 
yuv_rgb32x2 (pixroap, Yold) ; 

Yold=Y; 

yu v_rgb3 2x2 (pixroap, Yold) ; 

Y»(*YC*+)»2; 
Yold=<Y*Yold)»l; 
yuv_rgb32x2 (pixmap, Yold) ; 

Y0ld=Y; 

y\iv_cgb32x2 (pixmap, Yold) ; 

Y*fYC2+*)»2; 
Yold2=(Y*Yold2)»l; 
yuv_rgb32x2 (pixraap2, Yold2 ) ; 

Yold2»Y; 

yuv_rgb32x2(pixmap2.Yold2) ; 

Y=(*Yc2+*)»2; 
Yold2»(Y*Yold2)»l; 
yuv__rgb32x2 (pixmap2, Yold2) ; 

YOld2*Y; 

yuv_rgb32x2 (pixroap2 , Yold2 ) ; 

) 

pixraap*=4*cols-2*width; 
p i xmap 2 ♦ = 4 • c 0 1 3 - 2 * w i dt h : 
Yc*=width; 
Yc2*.width; 

) 

> 

•define yuv_rgb8 (pixel . Yc, index, dith) \ 
Y=*YC++; \ 
Y««3; \ 
Y&- 0x3F00; \ 
Y|= U; V 

pixel. rgb( index) »table{YJ .rgbfdith] ; 

void YUV2RGB8 (Pixel *table, long -pixroap, short -Yc, short *Uc, short *Vc, int a 

long •pixmap2apixmap+cols/ 1, *row, *end*pixmap+area/4; 
short -Yc2aYc*width; 

while lpixmap<end) { 
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r owsp i xim p*»i d c h / 4 ; 
while (pijanap<row) ( 

Pixel pixel, pixel2; 

long Y,U,V; - 

V=*Vc+- ; 

U>>=2; 
V>>s6; 

U= (U&OxFO) ! (V&OxOF); 

yuv_rgb8 (pixel, Yc, G, 3 ) ; 
yuv_rgb8 (pixel. Yc, 1. 0) ; 
yuv_rgb8 (pixel2 . Yc2 .0,1); 
yuv_rgb8 <pixel2,Yc2, 1,2) ; 

Vs*Vc+^; 

U»»2; 

V»=6; 

U= (U&OxFO). I (ViOxOF); 

yuv„rgb8 (pixel , Yc, 2 , 3 ) ; 
yuv_rgb8 ( pixel , Yc . 3 , 0 ) ; 
yw_rgb8 (pixel2, Yc2, 2, 1) ; 
yvv_rgb8 ( pixel2 . Yc2 , 3 . 2 ) ; 

*pixmap+*»pixel .pixel ; 
* pixmap2 » pixel 2 . pixel ; 

) 

pixmap** (cols+cols-width>/4; 
pixMp2 + = (cola+cols-widch) /4; 
Yc*«vidtn; 
Yc2+»width; 

) 

) 

rfdefine yuv_rgb8x2 4 pixel. pixel2,Y, index, dith,dith2) \ 
Yta 0x3FO0; \ 
Yl = 0; \ 

pixel. rob [ index) =t able (Y] .rgb(dithl ; \ 
pixel2. rgbf index) stable (Y! .rgb(dith2) ; 

void YW2RGB8x2 (Pixel 'table, long »pixnap # short -Yc. short »uc. short •Vc, int 

( 

long *pixmap2=pixmap+cols/2 , tow, *«nd3pixmap+area/4 ; 
short *Yc2=Yc+width; 

while (pixroap<end) { 

long Yold=«YC«3, Yold2 = *Yc2«3 ; 

rovspixmap+width/2 1 
while (pixmap<row) { 

Pixel pixel, pixel2. pixel3. pixel4; 

long Y,U,V; 

D»»2; 
V»*6; 

0* (O&OxOOFO) I (VtOxOOOF); 
y-f*Yc*+)«3; 
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Y0ld*(Y+ : Tbld)>>l; 

yjv_rgfc8x2 (pixel. pixel 2. Y. 0 . 3 . : i ; 

YoldsY: 

yuv_rg£>8x2 < pixel , pixel2 . Y , 1 , C . 2 ) 
Y0ld=Y; 

Y=( # YCfr*J<<3; 

Yold= (Y*Yold) »1; 

yuv_rgbBx2 (pixel. pixe!2. Y.2, 3, 1) ; 

Yold=Y; 

yuv_rgb8x2 (pixel , pixel2 , Y , 3 , 0 , 2 ) ; 
YoldsY; 

Y=fYc2*+)<<3; 
Yold2=(Y+Yold2)>>l; 
y\jv_rgb8x2(pixel3,pixel4,Y,0. 3,1) ; 

Yold2=Y; 

y\jv_rgb8x2 ( pixel 3 . pixel 4 , Y, 1,0,2) ; 
Yold2=Y; 

Y=(*Yc2~*) «3; 

Yold2=(Y+Yold2)»l; 

yuv_rgb8x2 (pixel3,pixel4. Y. 2, 3.1); 

Yold2=Y; 

yuv rgb8x2 (pixel 3, pixel 4, Y, 3. 0.2); 
Yold2-Y; 

pixmap (cols/4 )=pixel2. pixel; 
* p i xmapf + * p ixe 1 . p ixe 1 ; 

pixrnap2 (cols/4 )=pixel4 .pixel; 
*pixmap2+*=pixel3 .pixel; 

) 

pixi*ap+= (cols+cols-width) /2; 
pixmap2+3 < cols ^cols- width) /2 ; 
Yc*=width; 
Yc2^*width; 

) 

> 

wdeCine yuv_rgbTEST( pixel, index, Y) \ 
rgb_col.red=(Y*r«8) ; \ 
rgb_col .green= (Y+g«8) ; \ 
rgb_col.blue«(Y+tx<8) ; \ 
pixel . rgb(indexj =Color2 Index (irgb_col) ; 


void YUV2RGBTEST(UV32_Tab -cable, long -pixniap. short *Yc, short *Uc, short *Vc. 

long *pixmap2=pixroap+cols/2, 'row, "end»pixmap+area/4; 
short *Yc2=Yc*width; 

while lpixmap<end) ( 

long Yold=*Yc«3, Yold2s*Yc2«3 ; 

row=pixm*p-*width/2 ; 
while (pixmap<row) { 

RGBColor rgb.col; 

Pixel pixel. pixe!2; 
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long * r,g,b,Y.U,V; 

U=0xO0FF& ( CUC-- ) »2 ) ; 
V=0x00FT&( (*Vc**)»2> ; 
ratable (U) .ru; 
gacabl«(U] .gu+table{V] .gv; 
b-ca£>le[vl .bv; 

Y=CYC^)»2; 

Yold=(Y*Yold)»l; 

rgb_col . red* (Yold+r<<8) ; 

rgb.col . grecn= ( Yold+g<<8 ) ; 

rgb.cbl . blue* (Yold+tx<8) ; 

pixel . rgb[0] =Color2 Index ( trgb„col) ; 

Yold*Y; 

yuv_rgbTEST (pixel . 1 , Yold) ; 

Y=fYc+*>»2; 
Yold-(Y+Yold)»l; 
yuv.rgbTEST (pixel, 2 , Yold) ; 

YoldaY; 

yuv„rgbTEST (pixel, 3, Yold) ; 

Y»CYC2**)»2; 
Yold2 = (Y+Yold2)»l; 
yuv_rgbTEST<pixel2, 0, Yold2) ; 

Yold2aY; 

yuv_r gbTEST ( pixe 12 , 1 , Yold2 ) ; 

Y*(*Yc2+*J»2; 
Yold2=(Y*Yold2i»l; 
yuv.rgbTEST (pixe!2 , 2 , Yold2 ) ; 

Yold2=Y; 

yuv_rgbTEST(pixel2, 3.Yold2) ; 

pixmap (cols/4] =pixel .pixel; 
• pixmap* + =pixe 1 * pixe 1 ; 

pixmap2 [cols/4 ] >pixel2 .pixel ; 
•pixmap2*+=pixel2. pixel; 

> 

pixmap+» ( col a* cola -width) /2 ; 
pixmap2+= (cola+cols-width) /2; 
Yc+=width; 
Yc2+»width; 

) 

) 
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© Copyright 1993 KLICS Limiced 
All rights reserved. 

wriccen by: Adrian Lewis 


68030 Colour space conversions 


machine 
seg 

include 


mc68030 
" klics* 
' Traps . a * 


macro 
DPY32x2 

add.l 
lsr.l 
add.l 
lsr.l 

move. 1 
add.l 
move . 1 
add.l 
move. 1 
add.l 
move. 1 

move. 1 
sub. 1 
move. 1 
sub. 1 
move. 1 
sub.l 
move. 1 

endm 


tARGB. &row ( toO, tol, tnO, tnl 


tn0,to0 
♦l.toO 
tnl.tol 
#l,tol 

toO. (tARGB) 
trow, tARGB 
toQ. (tARGB) 
trow, tARGB 
601. ( tARGB ) 
trow, tARGB 
tol. (tARGB)* 

tnl. (tARGB) 
txow, tARGB 
tnl, (tARGB) 
trow, tARGB 
tnO. (tARGB) 
trow, tARGB 
tnO. ( tARGB ) * 


interpolate first pixel 
interpolate first pixel 


• 

macro 
DPY32 

move. 1 
add.l 
move . 1 

tARGB, trow, toO, 

toO, (tARGB) 
trow, tARGB 
tol. ( tARGB) ▼ 

tol, tnO. tnl 

» 

move. 1 
sub. 1 
move. 1 

tnl, (tARGB) 
trow, tARGB 
tnO, (tARGB) ♦ 



endm 



* 

macro 
UV2RCB32 

iAU,tAV f tTAB 



add.l 

#2 04 8. tTAB 

; move to 


move.w 
Isr.w 
and. w 

tAU.dl 

#2,dl 

#$01FT.dl 

; Load U 
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move.l 

(iTAB.dl.v*8) , dO 

; UV now rg (u) 


move.w 

isr.w 
and. w 
add.l 

tAV.dl 

«2,dl 

•SOlFF.dl 

4{&TAB,dl.W8) ,d0 

; Load V 

.- 'JV now rgb 


move. 1 
move. 1 
move . 1 

dO.dl 
d0.d2 
d0,d3 

; 3 copies 

- 

sub. 1 

#2048. (TAB 

; restore ytab 


endro 




macro 
GETY32 

&AY, &TAB, &KCB0 , &RGB1 


t 

move. 1 
Isr.w 
and. w 
add.l 

tAY,d4 

#2,d4 

#$01FF.d4 

(&TAB,d4.w*4) , &RGB1 

;Y 

; RGB1*=YYY 


swap 
Isr.w 
and. w 
add.l 

d4 

#2,d4 
#$01Fr,d4 

UTAB,d4.w*4> ,4RGB0 

; RGBO+»YYY 


endn 




macro 
OVER32 

6 RGB 



copy pixel 

was it this rgb 

if not then quit 

R overflow? 

if not then continue 

teat sign 

if positive 

underflow sets R to 0 

do next bit 

overflow sets R to 255 

G overflow? 

if not then continue 

test sign 

if positive 

underflow sets G to 0 

do next bit 

overflow sets G to 255 

B overflow? 

if not then continue 

test sign 

under/ over flow 

mask RGB ok 


endro 


macro 

HA SHOUT 3 2 iAH, W)0. &D1. &D2, &D3 
move.l &D0,d4 


C\ ID PTTTi itt rurrr rrtt u r *r*\ 


move. 1 

andi . 1 
beq. s 
btst 
beq. s 

btst 
beq. s 
andi . 1 
bra.s 
8pos23 ori.l 
6bitl6 btst 
beq.s 
btst 
beq.s 
andi.w 
bra.s 
9posl6 ori.w 
9bit8 btst 
beq.s 
btst 
seq 

Send andi . 1 

Orw rcrb 


tRCB,d4 

#501010100. d4 

inx^ryb 

»24 f d4 

9bitl6 

I23,&RGB 

9pos23 

#$0000f f ff » &RGB 
9bitl6 

*$00f fOOOO.&RGB 

#16. d4 

»bic8 

»15,£RGB 

•posl6 

#S00f f ,&RGB 

0bit8 

«Sf f00,&RGB 
#8,d4 
6end 
#7, tRCB 
4 RGB 

tSOOfefefe.&RQB 
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add.l * 
add.l 
add.l 
andi . 1 
move . 1 

endm 

iDl.d* 
&D2,d4 
&D3,d4 

-$03e3e3e0.d4 
d4 . LAH 

macro 


HASHCMP32 

tAH , &O0, tDl 

move. 1 

&D0,d4 

add.l 

&Dl.d4 

add.l 

4D2,d4 

add.l 

&D3.d4 

andi. 1 

#$03e3e3e0,d4 

cmp . 1 

&AH.d4 

endm 



OUT32X2 FUNC 


EXPORT 


PS 

RECORD 

8 



table 

DS.L 

1 



pixmap 

DS.L 

1 



y 

DS.L 

1 



U 

DS.L 

1 



V 

DS.L 

1 



width 

DS.L 

L 



height 

DS.L 

1 



rowByte 

DS.L 

1 



pixmap 2 

DS.L 

1 



• 

QfD* 




LS 

RECORD 

0, DECK 



Yl 

DS.L 

1 

; 9 izeof ( short ) * Yrov 

m 

U-ex 

DS.L 

1 

; x end address 

•a 

U_ey 

DS.L 

1 

; y end addxess 


U_ix 

DS.L 

1 

; sizeof (short ) *UVrow 


v_y 

DS.L 

1 

; s izeof (short ) •Yrov 

a 

P-y 

DS.L 

1 

. 4« r0 wBytes-sizeof ( long) *Prow 


LSize 

EOU 

• 




ENDR 





2 'width 
U«-0_ix 

U+width w height » 

width 

2*vidth 

4 * rowBytes -width 


aO - Y. al 

- U, a2 - V, a3 - 

pixmap. 

a4 - table. a5 - pixmap2 

dO - rgbOO, 

dl - rgbOl, d2 - 

rgblO, d3 - rgbll. d4 - spare, d6 - oldO. d7 

link 

a6. PUS. LSize 


; inc. width, fend and rowend are loca 

movent. 1 

d4-d7/a3-a5, -<a7) 


; store registers 

move 

SR.dO 



move . 1 

PS.Y(a6) ,a0 


; Y=YC 

move. 1 

FS.U(a6).«l 


; 0»UC 

raove.l 

FS.V<a6),a2 


■ VaVC 

move. 1 

FS.pixmap(a6) ,a3 


• pm=pixmap 

move. 1 

PS. table (a6) , a4 


tab= table 

move. 1 

PS . pixmap2 ( *6 ) , a5 


pm2spixmap2 

move. 1 

PS.width(a6> , dO 


LOAD width 

move . 1 

d0.LS.U_ix<a6) 


SAVE U_ix 

move. 1 

PS. height (a6) ,dl 


LOAD height 

mulu . w 

dO,dl 


width'heiahe 
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0do_y 
0do_x 


9 over 


\ qr 1 

add.l 
move . 1 
add.l 
move . 1 
move. 1 
Lsl.l 
move . 1 
isl . 1 
suh. 1 
move . 1 

al,dl 

dl , LS . U.ey ( ai ) 
dO.dO 

dO, LS.Y1 (a6) 

dO,LS.Y_y(a6) 

#2.d0 

PS. rowByte (a6) , dl 

*2,dl 

dO.dl 

dl. LS . P_y (a6 ) 

wiatn height/ 2 

U+width*heigfat/2 
• SAVE U.ey 

width*2 
SAVE Yl 
SAVE Y_y 

width* 8 
LOAD rowByces 

rowBytes"4 

r owBy tes • 4 -width' 8 
SAVE P_y 

move . 1 

cir.l 
clx. 1 

FS.rowByce (a6) , d5 
d6 

d7 ; 

load rowByces 
clear old2 
clear oldl 

move . 1 
add.l 
move . 1 

LS.U_ix(a6) ,d0 

al.dO ; 

dO,LS.U_ex<a6) 

LOAD U.ixB 

P*U_ixB 
SAVE u_exfl 

UV2RGB32 

(al>+, (a2)*,a4 

uv2rgbCU«-*, *V+ + ) 

move . 1 
GETY32 
GETY32 

LS.Yl(a6),d4 
(a0,d4.1) ,a4,d2,d3 
<a0)*,a4,d0,dl 

load Yrov 

add Yb to RGB values 
add Ya to RGB values 

move.l 

or.l 

or.l 

or.l 

andi.l 

bne. s 

d0.d4 
dl.d4 
d2,d4 
d3.d4 

#$01010100, d4 
©over 

if overflow 

HASHOOT32 

(a5)*,d0,dl,d2.d3 


DPY32x2 
DPY32x2 

a3,d3,d6,d7,d0.d2 
a3,d5,d0,d2.dl.d3 


move. 1 
move . 1 

dl,d6 
d3,d7 

copy olds 

cmpa. 1 
blew 

LS.U_ex<a6) ,al 
«do_x 


add.l 
add.l 

LS.Y_y(a6),aO 
LS.P_y<a6) ,a3 


cmpa. 1 
bit .w 

LS.U_ey(a6) ,al 
Qdo,y 


movant. 1 

unlX 

rts 

OVER32 
OVER32 
OVER32 
0VER32 
bra 

<a7)+,d4-d7/a3-a5 ; 
a6 

dO 
dl 
d2 
d3 

eok 

restore registers 
remove locals 
return 

ENDFUNC 
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EXPORT 
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PS 

RECORD * 

8 


cable 

DS.L 

1 


pixmap 

DS.L 

1 


V 

DS.L 

1 


U 

DS.L 

1 


V 

DS.L 

1 


width 

DS.L 

1 


heigfir 

DS.L 

1 


rcwBy ce 

DS. L 

1 


n * xnvan ^ 


t_ 



ENDR 



LS 


O.DECR 


Yl 

DS.L 

1 ; sizeof (short ) *Yrow r 2*width 

u_ex 

DS.L 

1 ; x end address = U*U_ix 

u_ey 

DS . L 

1 ; y end address = U*width*height>> 

U ix 

DS.L 

1 ; sizeof ( shore ) *UVrow -width 

Y_y 

DS.L 

1 ; sizeof (short ) # Yrow = 2 'width 

p_y 

DS.L 

1 ; 4*rowBytes 

-sizeof (long)* Prow * 4 •rowBytes -width 

LSize 

EQU 

* 


* 

ENDR 




aO - Y, al 

- U. a2 - v, a3 - pixmap. 

a4 - table, aS - pixmap2 

• 

dO - rgbOO, 

dl - rgbOl, d2 - rgblO, 

d3 - rgbll, d4 - spare, d6 - oldO, d7 


i in)c 

ac , iL.5 . ls i ze 

; inc. width t £ end and rovend are loca 

• 

rrif iv/aTn 1 

d4-d7/?3-a5. - (a7) 

; store registers 


move 1 

PS..Yfa6>,aO 

; Y«Yc 


move • 1 

PS.3(a6) ,al 

; U*Uc 


move . 1 

PS.V(a^) ,a2 

; V*VC 


move * x 

PS . pixxnap ( a 6 ) « a 3 

pm=p ixmap 


move . 1 

PS. table (a6) ,a4 

; cab» table 


move . 1 

PS.pixmap2 <a6) ,a5 

; psn2=pixmap2 


move * X 

PS. width (a6) ,d0 

; LOAD width 


move . 1 

dO.LS.U_ix(a6) 

• SAVE U_iX 


move. 1 

PS. height <a6>,dl 

LOAD height 


mulu.w 

dO.dl 

width'height 


isr . i 

•l.dl 

uidth # hoight/2- 


add. x 

al.dl 

U*width # height/2 


move . 1 

dl,LS.U_ey(a6) 

SAVE U_ey 


add.l 

dO . dO 

width*2 


move . 1 

dO.LS.Yl<a6) 

SAVE Yl 


move . 1 

dO,LS.Y_y(a6> 

SAVE Y_y 


lsl.1 

«2,d0 

width** 


move . 1 

PS.rowByre (a6) .dl 

LOAD row by tea 


lsl.l 

*2.dl ; 

rowBytes *4 


sub.l 

dO . dl 

rowbytea*4-width*8 


move . 1 

dl,LS.P_yU6> 

SAVE P_y 


move. 1 

PS.rowByteia6) ,d5 

load rowBytes 


clr.l 

d6 

clear old2 


clr.l 

d7 

clear oldl 

8do_y 

move. 1 

LS.U_ixta6) ,d0 

LOAD U_ixB 


add.l 

al.dO 

P*U_ixB 


move . 1 

dO,LS.U_ex(a6) 

SAVE U.exfl 

fldo^x 

UV2RGB32 

(al)+, <a2>*,a4 

uv2rgb(*U+*, # V*+) 


move . 1 

LS.Yl(a6),d4 

load Yrow 


GETY32 

(a0.d4.1),a4,d2.d3 

add Yb to RGB values 
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GETY32 

(a0)+, a4,d0, dl 





move. 1 

d0.d4 


or. 1 

dl,d4 


or . 1 

d2 , d4 


or.l 

d3.d4 


andi . 1 

#301010100, d4 


bne . w 

Gover 

<?ok 

HASHCMP32 

(a5)+,d0,dl,d2 # d3 


bne . s 

(Jdif f 


add.l 

• 16. a3 

Scone 

move. X 

dl.d6 


move . 1 

d3.d7 


cmpa. 1 

LS.U_ex(a6) ,al 


bit . w 

9do_x 


add.l 

LS.Y_y(a6) ,a0 


add.l 

LS.P_y(a6),a3 


cmpa.l 

LS.U_ey (a6) ,al 

• 

bit .w 

9do_y 


movem. 1 

(a7)+,d4-d7/a3-a5 


UX11X 

ao 


rts 



move . 1 

d4, »»4 (a5) 


DPY32x2 

a3,d3,d6,d7,d0,d2 


DPY32x2 

a3,d5,d0,d2,dl,d3 


bra. a 

8 c one 

3 over 

OVER32 

dO 


OVER32 

dl 


OVER32 

d2 


OVER32 

d3 

• 

bra 

%ok 

* 

ENEFUNC 


OUT32 
* 

FUNC EXPORT 

PS 

RECORD 

8 

table 

DS.L 

1 

pixmap 

DS.L 

1 

Y 

DS.L 

1 

U 

DS.L 

1 

V 

DS.L 

1 

width 

DS.L 

1 

height 

DS.L 

1 

rovByte 

DS.L 

1 

pixmap2 

DS.L 

1 


ENDR 
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add Y* to RGB values 


if overflow 


; add four pixels 
; copy olds 


restore registers 
remove locals 
return 


LS 

Yl 

U_ex 

0_ey 

U_ix 

Y_y 

?-y 

LSize 


RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

ECU 


0,DECR 

1 
1 
1 
1 
1 
1 


sizeof ( short ) *Yrow 
x end address 
y end address 
ai2eof (short ) *UVrow 
sizeof (short ) 'Yrow 
2 a rowBytes-sizeof ( long) *Prow 


a 2 'width 
= D+U_ix 

a U+width*height» 

» width 

= 2*vidth 

s 2*rowBytes-vidth 
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* 

aO - Y, al 

- U, a2 - v. a3 - pixniap. 

a4 - table, a5 - pixnw 

* 
• 

dO - rgbOG. 

dl - rgbOl. d2 - rgblO. 

d3 - rgbll, d4 - spare 


link 

a6,#LS.L5ize 

; inc. width, fend and 

• 

TOvem. 1 

d4-dl/a3-a5, Ha7) 

; score registers 


move. 1 

PS.Y(a6) ,a0 

; Y=YC 


move. 1 

PS.U(a6) ,ai 

; U=UC 


move . 1 

PS.V(a6> ,a2 

; VrVC 


move. 1 

PS .pixmap(a6 ) , a3 

; pm=pixmap 


move . 1 

PS,table<a6) ,a4 

; ca±>= cable 


move. 1 

PS . pixnap2 ( a 6 ) , a5 

; pn2splxjnap2 


move. 1 

PS.widchU6) .dO 

; LOAD width 


move. 1 

dO,LS.U_ix(a6> 

: SAVE U_ix 


move . 1 

PS heiahc(afi) dl 

; load height 


JTTUlU . W 

dO,dl 

; width*height 


lsr.1 

#l.dl 

width»height/2 


mAA 1 
SOU . i. 


(l*wi rtr h*heierht /2 


move . 1 

dl,LS.u_ey (a6) 

; SAVE u_ey 


add.l 

dO,dO 

; width*2 


move. 1 

dO,LS.Yl(a6) 

; SAVE Yl 


move. X 

dO,LS.Y_y(a6> 

; SAVE Y_y 


add. 1 

du, du 

width* 4 


move. 1 

PS.rowByte<a6) ,dl 

; LOAD rowBytes 


add.l 

dl.dl 

rowBytea*2 


sub. 1 

dO, dl 

; roweytes **wiacn s 


move. 1 

dl, LS. P_y (ao) 

; save p__y 


move . 1 

PS . rowB/te ( ao ) , G5 

; load rowBytes 


move . 1 

LS. Yl (a6) ,d<5 

; load Yrow 

9do_y 

move . 1 

L5.l*_ix(a6) .d7 

* LOAD U_ixB 

add.l 

al.d7 

• P+C_ixB 

<?do_x 

UV2RGB32 

(al)+. (a2)*,a4 

uv2rgb<*U->->, *v+->) 


GETY32 

(aO, do . 1 1 , a4 , a2 . dj . 

aOC TO CO Kufl \axut93 


GETY32 

(a0)«-.a4.d0.dl 

add Ya to RGB values 


move . 1 

dO , d4 



or.l 

dl.d4 - 



or.l 

d2.d4 



or . 1 

d3 , d4 



audi . 1 

#$01010100. d4 



bne.s 

eover 

if overflow 


HASHOUT32 

<a5)+,d0.di.d2,d3 



DPY32 

a3.d5.d0.d2.dl.d3 



cnpa. 1 

d7.al 



blt.w 

«do_x 



add.l 

LS.Y_yU*>,aO 



add.l 

LS.P_y(a6>,a3 



cnpa. 1 

LS.V_ey<a6) ,al 


• 

blew 

0do_y 



movem. 1 

(a7)+.d4-d7/a3-a5 ; 

restore registers 


d7 


cnocTmrrc cucct /Din c oc\ 
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unlk 

^ a6 


r~f- * 


v over 


QU 


0VE3O2 

H 1 



i-O 


OVER 3 2 

uj 







OUT32D 

-FUNC 

EXPORT 

PS 

RECORD 

8 

table 

DS . L 

i 

X 

pixraap 

t 

WO • u 

1 

y 


1 

□ 

TIC T 

1 


T\C T 

U5 . L 

1 

wiatn 

DS. L 

1 

height 

DS. L 

1 

rowByte 

DS.L 

1 

Dixmap2 

DS.L 

1 

* 

ENDB 


IB 

RECORD 


Yl 

DS.L 

: 

U_ex 

DS.L 

i 

U_ey 

DS.L 

l 

U^ix 

DS.L 

i • 

Y _ y 

DS.L 

i 


DS.L 

i 

LSI 26 

EQU 

* 


ENDR 



remove locals 
return 


sizeof { short J *Yrow 
x end address 
y end address 
sireof (short ) *UVrow 
sizeof (short) *Yrow 
2TowBytea-siieof (long) -Prow 


= 2 -width 

- U*0_ix 

= U«*width*height» 
* width 
» 2 "width 

- 2*rowBytes-width 


" Y 'v?i *2 - V. a3 - pixmap, i4 - table. a5 - pixmap2 

dO - rgbOO, dl - rgbOl, 62 - rgblO, d3 - rgbll, d4 - spare. d6 - Yrow, d7 

inc. width, fend and rcwend are loca 
store registers 

Y-Yc 
D*Uc 
V.Vc 

pmrpixmap 
tab»t£ble 
pm2=pixmap2 

LOAD width 
SAVE U_ix 
LOAD height 
width*height 
width«height/2 
U*width*height/2 
SAVE U_ey 
widch*2 

SAVE Yl 
SAVE Y_y 
width*4 
LOAD rowBytes 
rowBytes*2 
rovByt e s • 2 - wi dth * 4 
SAVE P_y 


link- 

a6, fLS.LSize 

mo vem. 1 

d4-d7/a3-a5,-(a7) 

move . 1 

PS.Y(a6),aO 

move. 1 

PS.D(a6),al 

move . 1 

PS.V(a6),a2 

move. 1 

PS.pixmap(a6) ,a3 

move . 1 

PS.table(a6l,a4 

move . 1 

PS.pixmap2(a6) , a5 

move. 1 

PS. width (a6 I ,d0 

move. 1 

dO,LS.u_ix(a6) 

move. 1 

PS. height ia6) ,dl 

mulu. w 

dO.dl 

lsr.i 

«l.dl 

add.l 

al,dl 

move. 1 

dl,LS.U_ey<a6) 

add.l 

dO,dO 

move. 1 

dO,LS.Yl(a5> 

move. 1 

dO,LS.Y_y (a6) 

add.l 

dO.dO 

move. 1 

PS.rowByte(a6) ,dl 

add.l 

dl,dl 

sub.l 

dO,dl 

move . 1 

dl.LS.P_y(a6) 
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move . 1 
move . 1 

» PS.rowByce (a6) , dS 
LS. Yl (a6) ,d6 

; load rovBytes 
; load Yrow 

■?do_y 

move . 1 
add. 1 

LS.U ix(a6) ,d*7 
al,d7 

; U3AD U.ixfl 

<do_x 

'JV2RCB3 2 

!alN, <a2)*,a4 

; uv2rgb ( •U*«- . *Vt * ) 


move . 1 
GETY32 
GETY3 2 

-3 . Yl (a6) ,d4 
(a0.d6.lj .a4.d2.d3 
(a0) a4,d0,dl 

; load Yrow 

; add Yb to RGB values 
; add Ya to RGB values 


move . 1 
or, 1 
or.l 
or.l 
andi . 1 
bne .s 

d0.d4 
dl.de 
d2. d4 
d3,d4 

#$01010100, d4 
eover 

; if overflow 


HASHCMP32 
bne. s 

(a5)-.d0.dl,d2.d3 
fldiff 



addq 

*8.a3 

; add four pixels 

9con: 

crrpa . 1 
blt.w 

add.l 
add.l 

d7,al 
6do_x 

LS.Y^yla6) ,a0 
LS . P_y I a6 ) ,a3 



cmpa. 1 
blew 

LS.O.ey (a6) ,al 
9do_y 


0diff 
Gover 

• 

movem. 1 

unxx 

res 

move. 1 

ur i 

bra. s 

OVTR32 
OVTR32 
OVTR32 
OVER32 
bra 

ENDFUNC 

<a7)+. G 4-d7/a3-a5 
ao 

d4, -4 (a5> 

a"\ ho h^ hi hi 

Scone 

dO 

dl 

d2 

d3 

9ok 

; restore registers 
; remove locals 
; return 

• 

macro 
u vuv 

«VAi*, &UV 


epos 

* 

move.w 

add.w 

and.w 

beq.s 

*st .w 

bge.s 

move.w 

bra.s 

move.w 

&VAL.&OV 

♦S0200,tOV 

t$FC00,*OV 

Ook 

&OV 

Opos 

#S01FF,&VAL 
dok 

#SFE00.&VAL 



endm 
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UVLIMIT FUNC 

EXPORT 

* rix dO, d4, spare 


UVOV 

dO, dl 

swap 

dO 

CJVOV 

dO,dl 

swap 

dO 

uvov 

d4,dl 

swap 

d4 

uvcv 

d4.dl 

swap 

d4 

res 


ENDFUNC 



macro 
UVOVER 

move . 1 
move . 1 
add.l 
add.l 
or.l 
andi. 1 
beq. s 
bar 


&u\ SlV 

#$02000200, dl 
dl , d2 
&U,dl 
&V,d2 
d2,dl 

*$FCO0FCO0,dl 

SUVoic 

UVLIMIT 


endm 


macro 

GETUV &AU, &AV, J.SF, tUV 

move.l (iAU)+,&SP 

move.l (iAV)*,£UV 
UVOVER &UV 

lsr.l »5.6UV 

andi.l #$03e003eC, &SP 

andi.l #S001F001F.&UV 

or.l &SP,£UV 

swap 4UV 


; UV*»$00UV00UV 


endm 


macro 



GETTY 

&AY, &IND, iUV, iRO. tRl 


move . 1 

&AY.&R1 

• (2+) YrYOYl 

lsl.1 

#5.iRl 

- (4) YsYOXXYlXX 

andi . 1 

#SFCOOFC00,iRl 


or.w 

&UV.&R1 

• (2) Y=Y1UV 

move . 1 

(&IHD,&R1 . w*41,&R0 

(2+) R0=0123 fYl) 

swap 

&A1 

(4) Y=Y0XX 

or.w 

tUV,&Rl 

(2) Y=Y0DV 

move . 1 

( &IND, 4R1 ,v*4),&Rl 

(2+) Rl=0123 (YO) 

endm 




macro 

UV8 &AU, £AV, &S?, &UV 

move.l ifcAU)+,&SP 

move.l (itAV)*,iiUV 

UVOVTR ASF.&UV 


CIIDCTITI1TC CUCCT /Dill C W 
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lsr.l ^ *2.&SP 

lsr.l #6.4UV 

ar.ci. I »$O0FO00FO.&SP 

andi. 1 #SO0OF00OF. &UV 

or.l &SP.&UV 

swap iLTV 


; UV = = SOOUV0OLTV 


er.cm 


macro 
Y3IND 

move . 1 

is:.: 

move . b 
audi 
move 
swap 
move 
andi 
move 


. w 
.1 

.b 
. w 

.1 


&Y. iIND,&UV,&DO,&Dl 

&Y, &D0 

#3,&D0 

tUV. iDO 

#S3FFF. &D0 

< &IND. 4 DO .W4),iDl 

&D0 

iUV.&DO 
»S3FFF,&D0 
UUJD.iDO . W4),&D0 


dO»YOYl 

dO^YOXXYlXX 

dO*YOXXYlUV 

dOsOYUV(l) 

find clut entries 

dO-YOXX 

dO^YOUV 

dO=0YUVf 0) 

find clue entries 


endm 


OUT 8 


FUNC 


EXPORT 


PS 

cable 

pixmap 
Y 

a 

v 

width 
height 


RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 


rowByte DS.L 
pixmap2 DS.L 
ENDH 


LS 
Yl 

U_ex 

u_ix 
Y_y 
P_y 
LSize 


RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

SOU 

SNDR 


O.DECK 


sia«of ( ihort ) # Yrow 

x end address 

y end address 

sizeot ( short ) *UVrov 

sizeof i short ) -Yrow 

2-rowBytes-siteof ( long) -Prow 


2*width 
U+U_ix 

U+width*height» 

width 

2*width 

2*rowBytes-width 


aO - 

Y, al 

- U, a2 - V, a3 - 

dO - 

rgbOO. 

dl - rgbOl, d2 - 

link 


a€, #L5. LSize 

movem. 1 

d4-d7/a3~a5, -<a7> 

move 

1 

PS.Y(a6) ,a0 

move 

1 

PS.U<a6) ,al 

move 

1 

PS.V(a6) ,a2 

move 

1 

PS.pixmap<a6) , a3 

move 

1 

PS. table <a6> ,a4 

adda 

1 

#$00020000, a4 

move. 

1 

PS . pixmap2 ( a6 ) , a5 

move . 

i 
* 

PS. width *a6) ,d0 


a4 - table. a5 - pixmap2 

3 - rgbll, d4 - spare, d6 - oldO, d7 

inc, width, fend and rowend are loca 
store registers 

Y=Yc 
U=Uc 
V=Vc 

pro* pixmap 
tab=table 
tfib*=3276B (longs) 
pm2»pixmap2 

LOAD width 
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9do_y 
«do_x 


move . 1 
move . 1 

mulu . w 
lsr.l 
add.l 
rrove . 1 

move. 1 
add.l 
sub. i 
move. 1 
add.l 
move. 1 
move. 1 

move. 1 
move. 1 

move. 1 
add.l 

GETUV 

GETY 
GETY 

move. w 
lsl.l 
move. w 
swap 
lsl.l 

swap 

GETY 
move. w 
lsr.l 
move. w 

GETY 

move.w 

swap 

lsr.l 

move.w 

move. 1 
move . 1 

cmpe, 1 
blt.w 

add.l 
add.l 

crapa. 1 
blt.w 

mo vein. 1 

unlk 

rts 

EKDTUNC 


dO,LS.U_ix(a6) 
* PS. height <a6) ,(U 
dO.dl 
#l.dl 
al.dl 

dl. LS.CLey <a6) 
PS.rovBy'e(a6> , dl 
dl.di 
dO,dl 

dl, LS,P_y(a6> 
dO,dO 

dO.LS.Yl (a6) 
dO,LS.Y_y(a6> 

PS.rowByte(a6) ,d5 
LS.Yl(a6),d6 

LS.U_lx(a6) ,d7 
al,d7 

al,a2,d0.d4 

(a0,d6.w> ,a4,d4,d2,d3 
(aOU,a4.d4.dO,dl 

63, d2 
#8.d2 
dO.dl 
dl 

#8, dl 
d4 

<a0.d6.1) ,a4,d4,d0,d3 
d3.d0 

#e.do 

d0,d2 

(aO)+,a4,d4,dO,d3 
d0.d3 
d3 

#8.d3 
d3,dl 

d2, fa3,d5) 
dl. <a3>* 

d7,al 
9do_x 

LS.Y_y(e6),aO 
LS.P_y<a6) ,a3 

LS.U_ey(a6) , al 
fldo_y 

ta7)*,d4-d7/*3-a5 
a6 

; return 


SAVE U_ix' 

LOAD height 
width'height 
width*height/2 
U*width»height/2 

SAVE U_ey 

LOAD rowBytes 
rovBvtes*2 
rcwByte9*2 -width 

SAVE P_y 
width*2 

SAVE Yl 

SAVE Y_y 

load rowBytes 
load Yrow 

LOAD U_ixB 
P^U.ixfl 


; d2=X0XX- d3=XXlX 
t dO-XXXO, dl»lXXX 

1 d2=X0lX 
d2=01XX 
di.lXXO 
dl-XOIX 
dl.OlXX 

next UV 

dO=X2XX, d3-XX3X 
dO»X23X 
dO*XX23 
d2-0123- 

dO=XXX2, d3=3XXX 

d3-3XX2 

d3=X23X 

d3=XX23 

dl=C123 


restore registers 
remove locals 


macro 
Y8x2 


&AY,fcIND,*UV.&old 


CIIDCTlTinT CUCCT /DIM C OC\ 
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move . 1 

l i v i-i n 

a A I . QU 

; 1 2+) Y=Y0Y1 


lsl.l 

> ~\ Hfl 

* J * UU 

; (4) Y*Y0XXY1XX 


swap 

cu 

(4) Y = YIXXYOLX 


add. w 

dO , 4old 

; (2) old=old*YO 


lsr. w 

* 1 . &old 

- (4) old=(old*Y0) /2 

• 

move . b 

&UV, & old 

; (2) old=YlOUV 


andi . w 

•$} FT? . told 

; (4) old=0YUV(I0) 


move . 1 

[&2ND,&old . W4) ,dl 

; (2*1 dl=XlX3 


move . w 

dO, iold 

; (2) old-YO 


move . b 

&UV,dO 

; (2) Y=Y0DV 


andi . w 

*S3FFF.dO 

; (4) Y=0YUV(0> 


move . 1 

(&IND.dO.W4) ,d2 

; (2*) d2=0X2X 


move . w 

dl.d3 

; (2) cxg.w dl.d2 


move - w 

d2,dl 

; (2) dl=Xl2X 


move . w 

d3,d2 

; (2) d2=0XX3 


swap 

62 

; (4) d2=X30X 


lsl.l 

*8,dl 

; (4) dl=12XX 


lsl.l 

#8.d2 

; (4) d2-30XX 


swap 

dO 

; (4) YsYlXX 


add. w 

dO,&old 

; (2) old»old+Yl 


lsr .w 

#l.iold 

; (4J oldslold*Yl)/2 


movi . b 

&UV r &old 

; (2 J old=YUUV 


andi.w 

#S3FFF.4old 

; (4) old=0YUV(Il) 


move . 1 

UIND.iold .w w 4),d3 

; (2+) d3*XlX3 


move . w 

dO , iold 

; (2) olds'tl 


move . b 

&UV,dO 

• (2) Y=Y0UV 


andi . w 

# S 3FFF, dO 

(4) Y=0YUV ( 0 ) 


move . 1 

ftlOT.dO-wM) .dO 

(2*) d0=0X2X 


move. w 

dO , dl 

(2) exg.w d0,d3 


move . w 

d3,d0 

(2) dO»OXX3 


move . w 

dl,d3 

(2) 63-X12X 


swap 

dO ; 

(4) dO»X30X 


lsr.l 

#8,d0 

(4) dO»XX30 


lsr.l 

# 8 , d3 

(4) d3xX12X 


move. w 

d0,d2 

(2) d2»3030 (YiYOYiYlJ 

(1) 

move. w 

* 

d3 , dl 

(2) CUt2121 (YiYOYiYll 

(2) 

endm 




macro 




Y8x2a 

• 

&-AY, 4IND, 4UV 



GETY 

&AY, tIND, 4UV, dl , d2 



* move . 1 

&AY.d2 

(2*) Y^YOYl 


lsl.l 

#3,d2 

(4i YsYOXXYlXX 


move . b 

&UV.d2 

(2/ Y=Y1UV 


* andi . w 

*S3FFF.d2 

(4i Y = 0YW( Yl ) 


move . 1 

(&IND.d2 w*4) .dl 

(2+1 dl = 0123 (YD 


* swap 

d2 

(4) Y=fOXX 


move . b 

&UV,d2 ; 

(2) Y»Y0UV 


andi . w 

»S3FFF.d2 

(4) Y=CYUV(Y0) 


* move . 1 

UIND,d2.w*4) ,d2 

(2+) d2*0123 <Y0) 


move, w 

dl , dO 

(2) exg.w d2,di 


move . w 

d2 . dl 

(2) dl«0123 (Y1Y0) 


move . w 

d0,d2 ; 

(2) d2=0123 (Y0Y1) 


swap 

* 

dl 

(4) dls2301 (Y0Y1) 


endm 




macro 




Y8x2b 

* 

4JVY, tIND.iUV 



GETY 

& DiD. iUV. dl , d2 


- 
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move.l &AY,d2 

Isi.i *3.d2 

move.b &UV,d2 

andi.v »S3FFF.rt2 

move.l (&IND,d2.w»4 ) , dl 

swap d2 

move.b &UV,d2 

andi.w <*$3FFF,d2 

move. 1 (&IND,d2. W4) . d2 

ror.l *8,d2 

ror.l *8,dl 

move.w dl.dO 

move . w d2 , dl 

move.w d0.d2 

swap dl 

ror.w #8,dl 


(2+) Y=Y0Y1 
f 4 > YsYOXXYlXX 
(2) YrYlCJV 
(4) Y=0YUV(Y1) 
(2*) dl*0123 (YD 
(4) Y=Y0XX 
(2) Y=Y0UV 
(4) Y=0YUV(YU) 
(2*) d2=0123 (YOJ 
(6) d2*3012 (YO) 
(6) dlr3012 (YD 
(2) exg.w d2. dl 
(2) dl=3012 (Y1Y0) 
(2) d2*3012 (YOYD 
(4) dl=1230 (YOYD 
(6) dl«l203 (YOYD 


endm 


ODT8x2 FDMC 


EXPORT 


?s 

RECORD 

8 

cable 

DS.L 

1 

pixraap 

DS.L 

1 

Y 

DS.L 

1 

U 

DS.L 

1 

V 

DS.L 

1 . 

width 

DS.L 

1 

height 

DS.L 

1 

rowByce 

DS.L 

1 

pixmap2 

DS.L 

1 

* 

ENDR 


LS 

RECORD 

0,DECR 

Yl 

DS.L 

1 ; aizeof (short ) *Yrov » 2*width 


DS.L 

1 ; x end address ■ UVU_ix 

U_ey 

DS.L 

1 ; y end address s U>width*height>> 

U_ix 

DS.L 

1 ; sizeof (short ) *UVrow s width 

Y— y 

DS.L 

1 ; sizeoft short )*Yrow = 2*width 

F-y 

DS.L 

1 ; 4*rowBytes-sizeo£ ( long ) *Frow = 4*rowBytes-width 

LSize 

EQU 

• 


ENDR 



aO - Y. al 

- U, a2 - V, a3 - pixmao, a4 - cable* a5 - pixmap2 


dO - rgbOO, 

dl - rgbOl, d2 - rgblG", d3 - rgbll, d4 - spare, d5 - oldO, d7 


link 

a€,*LS.LSize ; inc. width, fend and rovend axe loca 

* 

movem.l 

d4-d*7/a3-a5, - (a7J ; store registers 


move. 1 

PS.Y(a6),aO ; YaYc 


move . 1 

PS.UU€),al ; U=Uc 


move . 1 

PS.V<a6),a2 ; V-Vc 


move. 1 

PS.pixnap(a6) ,a3 ; pm=pixroap 


move. 1 

PS. table (a6) , a4 ; tab= cable 


adda. 1 

#$00020000, a4 ; tab+=32768 (longs) 


move. 1 

PS.pixnap2 (a6) ,a5 ; pm2-pixmap2 


move.l PS.width(a€) ,d0 

move.l dO.LS.u_ix(a6) 

move.l PS . height ( a6 ) , dl 

reulu.w d0 f dl 

lsr.l #l.dl 


LOAD width 

SAVE U_ix 

LOAD height 
width # height 
width • he ight/2 
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add.l 
move . 1 
add.l 
move . 1 
neve . 1 
move . 1 
add.l 
add . 1 
sub . 1 
move . 1 

al.dl 

"3l. LS.U_ey (a6) 
dO,dO 

dO. LS.Yl(a6J 

dO. LS.Y_y(a6> 

PS.rowByte(a6) .dl " 

dl.dl 

dl.dl 

dO.dl 

dl.LS.P_y(a6» 

; U»width # height/2 

; SAVE U.ey 

; width'2 

, SAVE Yl 

; SAVE Y_y 

; LCAD rowByces 

rowBytes*2 

rowBytes*4 

rowByces* 4 -wjdth'2 
; SAVE P_y 


* 

move . 1 

clr.l 

clr.l 

PS . rowByte ta6) , d5 

d6 

d7 

; load rovBytes 



?do_y move . 1 
add.l 
move . 1 

LS.U ixla6),d0 
al.dO 

<20,LS.U_exia6> 

; LOAD U_ixB 
; P+U_ixB 
; SAVE U.exB 



0do_x GETUV 

al,a2.d0.d4 

; d4=O0UVOOUV (10) 



Y8x2a 
move . 1 
add.l 
move , 1 
add. 1 

(a0> ,a4,d4; ,d6 
62, (a3) 
d5,a3 
dl. (a3) 
d5,a3 

; calc d2,dl pixels 



move . 1 
Y8x2b 
move . 1 
add.l 
move . 1 

LS.Yl(a6).dO 
(aO.dO.w) , a4,d4; ,d7 
d2, (a3) 
d5.a3 
dl. (a3) + 

; load Yrow 

; calc d2,dl pixela 



svap 

addq. 1 

d4 

• 4.a0 

; next UV 
; next Ys 



move . 1 
Y8x2b 
move . 1 
sub.l 
move . 1 
sub.l 

L5.Y1 (a€) ,d0 

(aO.dO.w) a4,d4;.d7 

dl, fa3) 

dS.a3 

d2. (a3) 

d5.a3 

; load Yrow 

; calc d2,dl pixels 



Y8x2a 
move . 1 
sub.l 
move . 1 

fa0)+,a4.d4; . d€ 
dl. (a3) 
d5.a3 
d2. <a3)+ 




cmpa . 1 
blew 

LS.U_ex(a6),aJ 
8do_x 




add. 1 
add. 1 

LS.Y_y<a6),aO 
LS.P_y<a6) ,a3 




cmpa. 1 
blew 

LS.U-.ey (a6) ,al 
Gdo_y 




movem. 1 

unlk 

rts 

<a7)+,d4-d7/a3-a5 
a6 

; return 

; restore registers 
; remove locals 



ENDFUNC 
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raacro 



* 

RCB2Y 

^ &RGB, 4Y. 4U, 4V, 4AY 



move . 1 

fcRCB , d2 

; pixel = "pixmap 


ecri . 1 

♦S80S080, d2 

; pixel" =0x808080 


clr.w 

dl 

; B=0 


Tr.ove . b 

d2,dl 

; Brpixel[3] 


rcove . i 

4 (a4 . dl .v»8) , dO 

; d0=by,bu 


sub. w 

dO. &U 

; U-=bu 


swap 

dO 

; dO abu , by 


move . w 

dO,&Y 

; Y=by 


ext .w 

dl 

; { short )B 


add. w 

dl.dl 

; B*»2 


add. w 

dl,&V 

; V+»B«1 


lsr.l 

#6,d2 

; pixel>>afl 


clr.w 

dl 

; G-0 


move. b 

d2,dl 

; G»pixel[3] 


move . 1 

(a4,dl.w*8) ,d0 

; d0»gry,gv 


sub. w 

dO,&U 

; U-*gv 


swap 

dO 

; dO»gv,gry 


sub. w 

dO,&Y 

; Y-sgry 


move . 1 

4 (a4,dl.w*8J ,d0 

• d0=gby,gu 


sub. w 

dO, W 

* V-sgv 


swap 

dO 

• dO^gu, gby 


sub * w 

dO,&Y 

Y-.gby 



dl 

(short )G 


sub" w 

dl,&u 



sub * w 

dl,4V ? v-»g 


lal !w 

»2.dl 

G<<»2 



dl,4Y ; 

Y+»B«1 



*8.d2 

pixel>>*8 


sub*** 

(a4d2.w»8).d0 

d0«ry , rv 



dO , kV 

V-»rv 


swap 

dO 

d0«rv. ry 


add.w 

dO , AY 

Y^ory 


ext .w 

d2 

( short )R 


add. w 

d2,d2 

R*=2 


add.w 

d2 , 40 

U+»R«2 


cirpi.w 

#SFE40.4Y 

Y>»-448 


bge. s 

eok 

if greater 


TT\0 Vft W 

*$FE40,&Y 

Y= -448 



Send 

save 


CTTipj • W 

#$01C0,4Y 

Y< 448 


bit . s 

Send 

if less 


nvovG w 

#$oica,&Y 

Ya 44H 


move w 

4Y, fcAY 

Save Y 


endm 



IN32 
* 

FUNC 

EXPORT 


PS 


6 


tail* 

DS.L 

1 


pixmap 

DS.L 

1 


Y 

DS.L 

1 


0 

DS.L 

1 


V 

DS.L 

1 


width 

DS.L 

1 


height 

DS.L 

1 


rowByte 

DS.L 

1 


* 

ENDR 



LS 

RECORD 

O.DECR 



QiiPCTmnr quppt /qui p oca 
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VI 

U_ex 
'J_ey 
J_ ■. x 

-Size 


DS.L 
DS.L 
OS. I 
DS. L 
DS. L 
DS.L 
EQU 
D'DR 


siieor ( short ) • Yrow 

x end address 

y end address 

iizeorishoru 'UVrow 

sizeof ( shore i 'Yrow 

2 *rowBytes-sizeof f long ) # Prow 


2*width 
U*U_ix 

LUwidth*height>> 

width 

2*width 

2*rowBytes-width 


aO - Y, al - U. a2 - V, a3 - pixmap, a4 - cable, a5 - pixmap2 

dO - rgbOO, dl - rgbOl. d2 - rgblO, d3 - rgbll. d4 - spare. d6 - oldO, d7 


3do_y 


9do_x 


eoku 


~ mx 

^ £ art* . ' 

ao , *LS . LSne 

; inc, width, fend arid 

movem. 1 

d4-d7/a3-a5, - (a7) 

* store registers 

move . 1 

PS.Y(a6) ,a0 

• Y=Yc 

move . 1 

PS.U(a6) ,al 

* U*Uc 

move • 1 


V=Vc 

move . 1 

PS.pixmap(a6) . a3 

pra= pixmap 

move - 1 

PS.t&ble(a6),a4 

cab= table 

move . 1 

PS.width(a6) ,d0 

LOAD width 

move . 1 

dO, LS.U_ix(a6) 

SAVE U_ix 

move . 1 

PS . height ( aS ) , dl 

LOAD height 

mulu . w 

dO,dl 

width*neight 

lsr . 1 

U,dl 

width*height /2 

add.l 

al,dl 

U+width*height/2 

move . 1 

dl.LS.U_ey(a6> 

SAVE C_ey 

add. 1 

dO,dO 

widrh*2 

move. 1 

dO,LS.Yl(a«> 

SAVE Yl 

move. 1 

dO,LS.Y_y(a6> 

SAVE Y_y 

add. 1 

dO,dO 

vidth+4 

move. 1 

PS . rowByre ( a6 ) . dl 

LOAD rowBytes 

add.l 

dl,dl 

rowByte3 - 2 

sub. 1 

dO,dl 

rowBytea*2-width*4 

move. 1 

dl,LS.P_yla6) 

SAVE P_y 

move,. 1 

PS.rovByte<a6) ,d7 

load rowBytea 

move. 1 

L5.Yl(a6),d6 

load Yl 

move . 1 

LS.U_ix<a6) .dO 

LOAD U.ixB 

add.l 

al.dO 

P^O.ixB 

move . 1 

dO,LS.U_exla6I 

SAVE U.exB 

clr.w 

d4 


clr.w 

d3 

v=o 

RGB2Y 

(a3.d7.w) ,d3,d4.d5, <a0,d6.w) ; Convert pixel 

RGB2Y 

(a3)+.d3,d4.d5, (a0> + 

; Convert pixel 

RG32Y 

(a3,d7.v) ,d3.d4.d5, <aO,d€ 

.v); Convert pixel 

RGB2Y 

U3)+,d3,d4,d5, <a0) + 

; Convert pixel 

asr .v 

#2,d4 

U>>=2 

asr .w 

#2,d5 

V»=2 

enpi .w 

»$FE40,d4 

U>*-448 

bge.i 

• okU 

if greater 

move.w 

•srE40,d* 

Us -446 

bra. a 

«doV 

save 

crapi.w 

#$01C0.d4 

U< 448 

bit. s 

edov 

if less 

move . w 

#S01CO,d4 

U* 448 
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3doV cmpi.w ^ #SFE40,d5 

bge.s 9okV 

move.v #5FE4 0.d5 

bra. a Send 

3ofcv onpi.w *S01CC.d5 

blc.s Send 

movc.w *S0lC0,d5 

Send nove.w d4.(al)+ 

move. w d5, (a2) ♦ 

cmpa.l LS.U_e*<a6) ,al 

blt.w «do_x 

add.l LS.Y_yia6) ,a0 

add.l LS.P_v(a6) , a3 

cmpa.l LS.U_ey (a6) ,al 

blt.w 3do_y 

movem.l (a?) + , d4-d7/a3-a5 

unlk a6 

rts ; return 


V>=-448 
if greacer 
V= -448 
save 
V< 448 
if less 
V= 448 

Save U 
Save v 


restore registers 
xereove locals 


ENDFUNC 


macro 
UV16 


&AU, *AV, &UV 


movs. 1 

move. 1 

UVOVER 

lsr.l 

andi-i 

andi.l 

or.l 

swap 

ondsi 


(&AUJ+.&SP 

iSP,4UV 

♦$03eO03eO,*SP 

#$001F001F,4OV 

&SF,£UV 

&UV 


UV»**00OV00UV 


macro 

Y16x2 &AY,&IND,&UV 

move.l &AY , d2 

lsl.1 #5,d2 

andi. 1 *$FC0OFC00 , d2 

or.w &UV,d2 

move.l (&IND,d2 ,w*4) ,dl 

swap d2 

or.w &Uv\d2 

move.l < & IND , d2 . 4 ) , d2 


(2-0 Ys-YOYl 
14) Y=^0Xj(yiXX 


(2) YsYlUV 
(2+) dl=0123 
(4) Y.YOXX 
(2) Y»Y0UV 
(2*) d2 3 0123 


(YD 


<Y0) 


enda 


OOT16x2 FDNC EXPORT 
• 

PS RECORD 8 

table DS.L 1 

pixmap DS.L 1 

Y DS.L 1 
'J DS.L 1 

V DS.L 1 
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viclt h 

Uj . Li 

r 




r.e lgh z 

nc t 

i 




rcwBy t e 

DS ■ L 

i 




pixmapl 

DS . L 

i 





EiNDR 





LS 

PXCCRD 

0 . DECK 




Yl 

DS .L 

1 ; sizeof {short ) *Yrow = 2*width 

U_ex 

DS . L 

1 ; x end 

address = U-*U_ax 

u_ey 

DS . L 

1 ; y end 

address ■ U+width*height>> 

ulix 

DS.L 

1 ; sizeof ( snore ) *UVrow = width 

Y_y 

DS - L 

1 ; sizeof (short) *Yrow = 2 'width 

P_y 

DS . L 

1 ; 4 "rowBytes 

-sizeof t long )* Prow = 4 * rowBytes -width 

LSize 

EQU 





• 

ENDR 





* 

aO - Y. al 

- U. a2 - V, a3 - 

pixmap. 

a4 - table, a5 - pxxmap2 

• 

dO - rgbOO, 

dl - rgbOl, £2 - 

rgblO, 

d3 - rgbll, d4 - spare. d6 - oldO, d"? 


link 

a€ . #LS. LSize 



; inc, width, fend and rowend are loca 

* 

mo vein. 1 

a 4 -a / / a3 -as , - (a7) 



; store registers 


move.l 

PS.Y(a6) ,a0 



; Y = YC 


move . 1 

PS.U<a6),al 



; U-Uc 


move . 1 

PS.V(a6) ,a2 



; V=Vc 


move . 1 

PS . pixroap < a 6 } , a3 



; pinspixmap 


move . 1 

PS . table (a6 ) ,a4 



; tabs table 


adda . 1 

#$00020000, *4 



,- cab-=32759 (longs) 


move. 1 

PS.pixniap2 (a6) , aS 



; p*n2»pixmap2 


move . 1 

PS.width(a6> .d0 



; LOAD width 


move . 1 

d0, LS.U_ix(a6) 



■ SAVE U_ix 


move . 1 

PS heiaht(a6) dl 



- LOAD height 


mulu. w 

d0,dl 



width*height 


lsr.l 

# 1 , dl 



width* height/ 2 


add. 1 

al.dl 



U^width*height/2 


move . 1 

dl,LS.U ey(a6) 



SAVE D_ey 


add.l . 

d0,d0 



width'2 


move , 1 

d0, LS.Y1 (&S) 



SAVE Yl 


move . 1 

dO, LS. Y_y <a6) 



SAVE Y_y 


add. 1 

d0,d0 



width* 4 


move . 1 

PS . rowBy t e ( a6 ) , dl 



LOAD rowBytes 


add. 1 

dl,dl 



rowBytes* 2 


add.l 

dl.dl 



rowBytes* 4 


sub.l 

dO.dl 



rowBytes*4-width*4 


move . 1 

dl.LS.P.y(a6> 



SAVE F_y 


move . 1 

PS.rowBytela6).d5 



load rowBytes 


clr.l 

d6 





clr.l 

d7 




9do_y 

move . 1 

LS.U_ix(a6) ,d0 



LOAD U__ixB 


add.l 

al.dO 



P+U_ixB 


move. 1 

d0,LS.O_ex(a6) 



SAVE U_CXB 

3do_x 

GETOV 

al,a2,d0,d4 



d4=0OUVOOUV (1CJ 


GETY 

(aO) t a4,d4.dl.d2 



calc d2 , dl pixel 


move.l 

d2, <a3)* 





move .1 

dl. <a3> 





add.l 

d5,a3 





swap 

dl 





move . 1 

dl. fa3) 
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swap d^. 

ir.ove. 1 d2 , -(a3) 

add.l d5.a3 

move.l LS. VI <a6) , dO ; load Yrow 

GETY (aO.dO.wl .a4.d4.dl.d2 ; calc d2.dl pixels 

move .1 d2 . { a3 ) ♦ 

move .1 dl . { a3 ) 

add.l d5,a3 

swap dl 

move.l dl , (a3 ) 

swap <±2 

move.l d2,-<a3) 

3w ap d4 ; next UV 

addq.l M,aO ; next Ys 

add.l #12, a3 

move.l LS.Ylta6),dO ; load Yrow 

(aO.dO.w) ,a4,d4,dl,d2 ; calc d2,dl pixels 
move. 1 dl. Ia3) 

move.l d2.-(a3) 

sub.l d5,a3 

swap d2 

move. 1 d2, (a3) + 

swap dl 

move.l dl,(a3) 

aub.l d5,a3 

CETY (a0>*.a4.d4,dl.d2 

move.l dl.<a3) 

move.l <J2, -(a3) 

swap d2 

sub.l d5,a3 

move,l d2, (a3> + 

swap dl 

move.l dl. (a3) + 

OT^a.l LS.U.extae) , al 

blt.w 8do_x 

add.l LS.Y_yia6) ,a0 

add.l LS.P_y (a6) ,a3 

cmpa.l LS.U_ey 1*6) .al 

blt.w 9do_y 

movem.l < a7) + , d4-d7/a3 -a5 ; restore registers 

unlJc a6 ; remove locals 

rts ; return 

ENDFUNC 


macro 

Y16 iAY.&IND,&UV 

move.l fcAY,d2 ; (2+) YsYOYl 

lsl.l #5,d2 ; {4) Y=Y0XXY1XX 

andi.l #$FC00FCOO, d2 

or.w £UV.d2 ; (2) Y=Y1UV 

move.l (&IND,d2.v*4> .dl ; (2*) dl*Yl 

swap d2 ; <4) YaYOXX 

cr.v 4Uv,d2 ; (2 ) YzYOW 


ci ipctiti itp qupct mi n c oca 
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move . i 

(4IND,d2 . w*4 ) ,d2 

; (2*) d2-Y0 



move . w 

dl.d2 

• 

; (2) d2=Y0Yl 



endni 

- 



CUT 16 

F'JNC 

EXPORT 



?S 


3 



carle 

DS.L 

1 


• 

pixmap 

DS . L 

1 



Y 

DS . L 

1 


• 

U 

DS.L 

1 



V 

DS.L 

1 



width 

DS. L 

1 



height 

DS.L 




rowByte 

DS.L 

1 



pixjnap2 

DS.L 

1 




ENDR 




LS 

RECORD 

0 , DECK 



Yl 

DS.L 

1 sizeof ( shore ) *Yrow = 2 'width 


U.ex 

DS.L 

1 ; x end address * U*U_ix 


U.ey 

DS.L 

1 ; y end address a U*width*height>> 



DS. L 

1 ; sizeof ( short ) *UVrcw » width 



DS.L 

1 ; siieof (short > *Yrow = 2 'width 


P-V 

DS.L 

1 ; 2TowByte$-sizeof (long) *Prov » 2*rovBytes-vidth 


LSize 

sou 





ENDR 




* 

aO - Y , 

at - U, aP - v. a3 - pixmap. 

a4 - table, *5 - pixroap2 


* 

dO - rgbOO, dl - rgbOl. d2 - rgblO, 

d3 - rgbii. d4 - spaxe, d6 - oldO, d7 



link 

a6.«LS. LSize 

; inc, width, fend and rowend are loca 


* 

movem. 1 

d4-d7/a3-a5.-(a7> 

; store registers 



move . 1 

PS.Y(a6> ,a0 

; Y=Yc 



move . 1 

PS.U(a6> ,al 

; U=Uc 



move. 1 

PS.V(a6) ,a2 

; V.VC 



move . 1 

PS. pixmap (a6) , a3 

; pmrpixxnap 



move. 1 

PS. table<a6) ,a4 

; t abatable 



adda . 1 

*$0002000O.a4 

; tab**32766 (longs) 



move . 1 

PS. pixmtp2 <a6) ,a5 

; pm2=pixmap2 



move . 1 

PS.vidth<a6) ,d0 

• LOAD width 



move . 1 

dO.LS.U_ix(a6j 

■ SAVE U_ix 



move . 1 

PS .height ( a6) , dl 

• load height 



mulu. w 

dO.dl 

width*height 



lsr.l 

• l.dl 

width*height/2 



add.l 

al.dl 

U+width*height/^ 



move . 1 

dl,LS.U_eyta€) 

SAVE 0_ey 



add.l 

dO,dO ; 

width* 2 



move . 1 

dO,LS.Yl(a6» 

SAVE Yl 



move. 1 

dO,LS.Y_y(a6» 

SAVE Y_y 



move. 1 

PS.rowByt*(a6) ,dl 

LOAD rowBytes 



add.l 

dl,dl 

rowBytea*2 



sub. 1 

dO.dl 

rowBy t es * 2 -width* 2 



move. 1 

dl,LS.?_y(a6) 

SAVE P_y 



move. 1 

PS.rowByte Ia6) ,d5 

load rowBytes 



clr.l 

d6 




cir.l 

d7 



0do„y 

move. 1 

LS.U_i*(a6) ,d0 

LOAD U_ixB 

* 



SUBSTITI1TF SHFFTfRlflF 9to 
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add.l *4,d0 , p+u_ixB 

move.l dO, LS.U_ex(a6) ; SAVE U.exB 

?dc_x GETUV al ( a2,d0.d4 ; d4=00UV00UV ,'10/ 


GETY. (aO) , a4.d4.dl, d2 ; calc d2.dl pixel 

tiovc.w <U,cL2 

^ove. 1 d2 , ta3 i 

add.i d5,a3 

move.l LS.Yl(a6).dO ; load Yrow 

GETY (aO,d0.w) ,a4.d4,dl,d2 ; calc d2.dl pixels 

move . w dl , 62 

move. 1 62, (a3) + 


swap 

d4 

; ne_xt 

UV 

addq. 1 

*4.a0 

; next 

Ys 

move . 1 

LS,Yl(a6),dO 

; load 

Yrow 

GETY 

(aO,d0.w) ,a4,d4,dl,d2 

; calc 

d2,dl 

move . v 

dl.d2 



move . 1 

d2. (a3) 



sub. 1 

d5,a3 




GETY (a0)+,a4,d4,dl.d2 

raove.w dl.d2 

move.l d2. <a3)+ 

cinpa.l LS.U_*x(a6),al 

blew «do_x 

add.l LS.Y_y<a6) ,a0 

add.l LS.P_yla6) , a3 

ctrpa.l LS.U_ey(a6) ,al 

blew Sdo_y 

movem.l fa7)+,d4-d7/a3-a5 ; restore registers 

unlk a6 ; remove locals 

res ; return 


EKDFUKC 


END 
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Ail rights reserved. 

written by: Adrian Lewis 


68000 Fast RGS/YUV code 

include 'Traps. a' 
machine nc68030 


macro 

RGB2Y iApixel.iAY 

dO - pixel/r. dl - g/2q+r, cl2 - b. d3 *» Y 


move . 1 

iApixel , dO 

; pixel«*Apixel 

eor. 1 

#S00808080,dO 

; signed pixels 

move . b 

d0,d2 

; bapixsin] 

ext . w 

d2 

; b is 8(16) bit: 

move . w 

d0,dl 

; g*pixel(2] 

asr.w 


; 2g is 9(16) bit 

swap 

dO 

; r=pixel(l) 

ext . w 

dO 

; r is 8(16) bit 

move. w 

d2.d3 

; Yab 

lsl.w 

#3,d3 

; Y<<*3 

sub. w 

d2,d3 

; Y--b 

add. w 

dO.dl 

; 2g+=r 

add.w 

dl,d3 

; Y*a2g*r 

add. w 

dl,d3 

; Y**2g+r 

add. w 

dl,d3 

; Y*=2g+r 

asr.w 

*4,d3 

; Y>>*4 

add. w 

dl,d3 

r Y+»2g*r 

move. w 

d3.&AY 

; AY«Y is 10(16) bit 

endm 




macro 

RGB2UV &A'J. &JVV 

dO - r, d2 - b, d3 - Y, dl - U/V 

add.w d0,d0 ; r is 9(16) bit 

add.w d2.d2 ; b is 9(16) bit 

asr.w »l,d3 ; Y is 9(16) bit 

move . w d2 , dl ; U=b 

sub.v d3,dl ; U=b-Y 

move.v dl.fcAO ; AU=U 

move.w d0,dl ; V»r 

sub.w d3,dl ; V=r-Y 

ittOVe.W dl,&AV ; AVaV 


endn 
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if ( ' seg ' ) # 'UNDEFINED ' then 

s«9 fcaeg 

•r.dif 


RGB2YUV2 


Sdol 
9do2 


0do3 


FUNC 

link 
movem . 1 


move. 1 
move. 1 
move. 1 
move. 1 
move. 1 
asl.l 
add.l 
move. 1 
asl.l 
move. 1 
asl.l 
sub. 1 
move. 1 
add.l 
rgb2y 
rgb2uv 
rgb2y 
cnpa. 1 
bit. s 
adda. 1 
move. 1 
add.l 
rgb2y 
cirpa . 1 
bit. a 
adda.l 
ciqpa. 1 
blew 


EXPORT 
a6, #0 

d4-d7/a3. -<a7) 


S0008 
$000C 
$0010 
S0014 
$0018 
♦ 2,d7 
a3,d7 
S001C 
#2,d4 
S0020 
#2,d5 
d4,d5 
a3,d6 
d4,d6 
(a3>* 
(al) + 
<a3N 
d€,a3 
9do2 
d3,a3 
a3,d6 
d4,d6 
<a3)+, 
d6.a3 
«do3 
d5,aJ 
d7.a3 
9dol 


(a6) ,a3 
(a6) ,a0 
(a6) ,al 
(a6) .a2 
(a6> ,d7 


(a6) ,d4 
<a6) .d5 


. (a0) + 
, U2) + 
. (aO)* 


(a0)< 


no local variables 
st ere registers 

pmspixinap 
Y-Yc 
U=UC 
V=Vc 

fend = axe a 

fend<<=2 

f «nd>=pm 

width_brwidth 

width_b<<»2 

incjD»cols 

cols«=2 

incjb-=width_b 

rowend=pro 

rowend+ widch^b 

rgb2y<pm++, Y++) 

rgb2uv<u++, V++> 

rgb2y (pnw-+, Y++ ) 

row«nd>pni 

while 

ptn*ainc_b 

rowend=pm 

row»nd*»width_b 

rgb2y ( pm** , Y++ ) 

rovend>pm 

while 

pm+«incjD 

f •nd>pm 

while - 


movem. 1 

<a7)+,d4-d7/a3 

; restore 

unlk 

aC 

; remove 

rts 


; return 

ENDFUNC 



macro 



FETCHY 

&AY, 6Y. iR, LC. &fi 


move . 1 

&AY, kY 

; Y=*AY+* 

add.l 

&Y.4R 

; RfU=Yl2 

add.l 

&Y.&G 

; GC-.Y12 

add.l 


; BB-*«Y12 

endm 



macro 



FIXOV 

&V, 4SFI, &SP2 


mova.w 

*V,*SP1 


clr.b 

&SP1 


andi.w 

#$3FFF,&SP1 


sne 

tSPl 


btsc 

*13.&SP1 


seq 

&5P2 
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or . b 

&SF1.&V 



a nd . w 

&SP2.&V 



swap 

&v 



move . w 

&V. &SP1 



clr.b 

&SP1 



andi • w 

•S3fff aspi 

■ •'-'tit t a o ^ x 



s nfi 

*SP1 



bt s t 

•13, &3P1 




£SP2 



or . b 

LCpl CV 
« J r 1 i iv 



dn'j . w 

£. COO r ■ r 



swap 

& V 



enani 




macro 




OVERFLOW 

&A. LB, &SP1. &SP2 



move . 1 

iSFFOOFFOO. &SP1 

; spl=maak 


move . l 

&A, &SP2 

; sp2=ovov (A) 


and. 1 

&SF1, 4SP2 

; sp2=o0o0 (A) 


lsr.l 

"3, &SP2 

; Sp2=0o0o (A) 


and. 1 

&B.&SP1 

• spl-oOoO <B> 


or.l 

&SP2.&SP1 

SplaOOOO (BABA) 


move. 1 

&A.&SP1 



or. 1 

&B,iSPl 



andi. 1 

#SFFO0FFO0. tSPl 



beq.s 

Qok 

if no overflow 


Clr.w 

&SP2' 

ANDsO 


FIXOV 

*A,LSPl.fcSP2 

Al overflow 


FIXOV 

&B.&SP1.&SP2 

Bl overflow 


«ok 



endm 




macro 



* 

MKKGB 

&R, £C, UB. iARCB 



lsl.l 

#8, AG 

; G=GCG0 (12) 


or.l 

&B,&C 

• G=GBGB (12) 


move . 1 

&R.&B 

• B»0R0R (12) 


swap 

&B 

B=0R0R (21) 


move . w 

tG,&B 

B=0RGB (2) 


swap 

tc 

GsGBGB (21) 


move . w 

&G.&R 

R*0RCB (1) 


move . 1 

SlR. iARGB 

*RGB*+»rgb (1) 


move . 1 

iB.iARGB 

-RGB++ = rgt> (2) 


endm 




macro 



* 

DUPVAL 

&V0 , fcVl 



roove.w 

&V0 , fcVl 

vl=vO 


swap 

&V0 



move . w 

&V1 . 4V0 

dup vO 

* 

move . 1 

4 VO.ii VI 

dup vl 


endm 




, macro 




UV2RGB3 

&AU , fcAV 



ciracTiTinr cwppt mm P 
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dl - ra. 

d2 - ga. d? 

- ba. d4 • 

- rb. d5 - gfc/512. 66 - 

move . w 

*512.d5 



; d5»512 

T.ove . w 

&AU,d2 



• U='AU+* 

add.w 

d2,d2 • 



• U is 10 1 16) bits 

.T.ove. w 

d2,d3 



- ba=U 

add. w 

d3. d2 



ga »2U 

add.w 

d3,d2 



gar3U 

add. v 

d5, d3 



ba+=512 

DUPVAL 

d3 , d6 



ba=bb=BB 

asr . w 

#4,d2 



ga=3U>>4 

move . w 

tAV,dl 



V=*AV++ 

add. w 

dl,d2 



ga + *V 

add. w 

dl.dl 



ra*»2 

add.w 

dS.dl 



ra+=512 

DUPVAL 

dl.d4 



ra=rb=RR 

sub.w 

d2.d5 



gb=512-ga 

DUPVAL 

d5.d2 



ga-gb»GG 

end* 






if &TYPE { ' seg * ) * ' UNDEFINED' than 

seg &aeg 

endif 


UV2RGB2 


FUNC 


EXPORT 


?S 

pixmap 
v 

U 
V 

area 

width 

cols 


LS 

mc 

width 

fend 

count 

LSize 


RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

ENDR 

RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

EQU 

ENDR 


0,DECH 

1 

1 

1 

1 


a0 - Y0. al - Yl, a2 - U, a3 - V, a4 
dC..6 - used. d7 - count 

link a6,#LS.LSize 

movem.l d4-d7/a3-e5, - <a7 ) 

move.l PS.pixmap<a6) , a4 

move.l a4,a5 

move.! PS.Y(a6),aO 

move.l a0,al 

move.l PS.U(a6) # a2 

move.l FS.V(a6),a3 

move.l PS .area (a6) , d7 

131.1 *2,d7 

add.l a4,d7 

move.l d7 , LS . fendfa6) 

move.l PS. width (a6) ,d5 

move .1 d5 » d7 


pmO f a 5 - pml 


inc. width, fand and rowend are loca 
store registers 

pmC»paxmap 
pmlrproO 
Y0=YC 
Y1=Y0 

a=oc 

VaVC 

fencUarea 

fend«»2 

fendt>-pniO 

save fend 

width*width 

count=width 


SUBSTITUTE SHEET /RULE 
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asr . 1 

subq.l 

move . 1 

add.l 

add.l 

add. i 

move . 1 

move . 1 

lsl.l 

add. 1 

add.l 

sub. 1 

move . 1 

UV2RG33 

FETCHY 

FETCHY 

move . w 

lsr.l 

and. w 

lsr.l 

and.w 

lsr.l 

and.w 

lsr.l 

and.w 

lsr.l 

and.w 

lsr. 1 

and.w 

move . 1 

or.l 

or.l 

or.l 

or.l 

or.l 

andi.l 

bne. s 

MKRCB 
MKKGfi 
dbf 

adda. 1 
adda. 1 
adda.l 
exg. 1 
move. 1 
cmpa. 1 
blt.w 


movem. 1 

unlk 

rts 

Qover move.l 
clr.w 


<?ok 


FIXOV 

FIXOV 

FIXOV 

FIXOV 

FIXOV 

FIXOV 

move . 1 

bra 


«l.d7 
*i.d7 

d7, ?s.-widch(a6) 

d5.d5 

dS.al 

d5.d5 

d5,LS.widch,'a6) 

PS. cols ia6) ,d4 

*2,d4 

d4.a5 

d4.d4 

d5.d4 

d4, LS. inc (a6) 
(a2) + .. <a3)~ 

taO)*,d0.dl,d2,d3 
<al)+,dC,d4,d5.d6 

• S3FFF.-dO 

• 2,dl 

dO.dl 

#2,d2 

d0,d2 

*2,d3 

d0.d3 

*2.d4 

d0.d4 

#2,d5 
d0,d3 
*2,d6 
d0,d6 
dl.dO 
d2,d0 
d3,d0 
d4.d0 
dS.dO 
d6,d0 

#$FFU0PF00,d0 
Cover 

dl.d2,d3. (a4)* 
d4,d5,d6, lab)+ 
dl , 9do 

LS. inc fa6 ) , a4 
LS. inc 126) . a5 
L>S.width(a6) ,a0 
aO,al 

PS.width(a6) ,d7 
LS.fend(a6} . a4 
3do 

(a7)+,d4-d7/a3-a5 
a6 

d7, LS. count <a6) 
d7 

dl,dO,d? 

d2,d0.d7 

d3.d0,d7 

d4,d0.d7 

d5,d0,d7 

d6,d0,d7 

LS. count (a6) ,d7 

9ok 


; count >>=1 
; count -al 
: save width 
; widch*=2 
; Yl+=width 
; width*=2 
; save width 
; inc=cols 
; inc<<=2 
; pml+ainc 
; cols»=2 

; inc now 2»cols-width bytes 

; save inc 

; uv2rgb( *0>+. »V+*) 

; add Ya to RGB values 

; add Yb to RGB values 

; dO-raaak 

• dl 8(16) bits 

dl masked 

d2 8(16) bits 

d2 masked 

d3 8(16) bits 

d3 masked 

d4 8(16) bics 

d4 masked 

d3 8(16) bits 

dS masked 

d6 8(16) bics 

d6 masked 


; if overflow 
; save HGBa 
; save RGBb 
; while 
; pmO*=inc 
; p»l*»inc 
; YO*. width 
; Y1<->Y0 
; count =width 
r pmO<fend 
■ while 

restore registers 
remove locals 
return 
save count 
AND=0 

A overflow 
B overflov 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 
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ENDFUNC ^ 

if &TYPE( ' seg* )* 'UNDEFINED' Chen 



seg 

&3eg 


endir 


CRIY2Y 

TUNC 

EXPORT 

PS 

RECORD 

3 

pixmap 

DS.L 

1 

Y 

DS.L 

1 

area 

DS.L 

1 

width 

DS.L 

1 

cola 

DS.L 

1 


EKDR 



dO - ww. dl - vOvl, 62 - v2v3, d3 - xor, d4 - width, d5 - inc. d6 - rovend, 
aO - pm, al - Y 


link 

a€. ttO 

* no 1 nra 1 vjirijihlPQ 

mo vein. 1 

d4-d7,-(a7) 


move . 1 

PS.pixmap(a6) r a0 

; pm*pixmap 

move . 1 

PS.Y(a6> ,al 

; YrYC 

move . 1 

ra . area ( ad) , q / 

; fend=area 

aao. i 

aU , a / 

; rend*=pm 

move . 1 

rS.wiatn(ao) , a4 

; wide h_jD» width 

move. 1 

PS.cols<a6) ,d5 

: inc_b-cols 

sub.l 

d*.d5 

; incjb-swidchjb 

move. 1 

#$7F7F7F7F,d3 

; xor=$7F7F7F7F 

move.l 

d0,d6 

; rowendapm 

add.X 

d4,d6 

; rowend-*-cwidch_ b 

move. 1 

UOJ + .dO 

; ww»*pn» 

eor.l 

d3,d0 

; ww is signed 

move.w 

d0,d2 

• d2»v2v3 

asr.w 

#6,d2 

• d2»v2 (10 bits) 

swap 

d2 

d2»v2??~ 

move.b 

d0,d2 

d2=v2v3 

ext .w 

d2 

v3 extended 

lsl .w 

#2,d2 

d2=v2v3 (10 blcs) 

swap 

dO 

d0»v0vl 

move. w 

dO.dl , 

dlsvOvl 

asr.w 

*6,dl ; 

di*v0 (10 bicsi 

swap 

dl 

dlaVO?? 

move.b 

dO.dl 

dl*v0vl 

ext .w 

dl 

vl extended 

lsl.w 

•2.dl 

dl=v0vl (10 bits) 

move . 1 

dl,(al>+ 

•Y»di 

move. 1 

d2,(elt* 

•Y=d2 

cmpa. 1 

d6 r a0 

rowend>pm 

blt.s 

9do2 

while 

adda . 1 

d5 , aO 

pm+»inc — b 

cmpa. 1 

d7,a0 

f end>pm 

blc.s 

8dol 

while 

movem.l 

Ia7]*,d4-d7 

restore registers 

unlk 

a6 

remove locals 

res 


return 


ENDFONC 


if &TYFE( "seg* UNDEFINED ' then 
seg &aeg 
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endi i 



Y2GR£Y 
• 

"UKC 

IX PORT 


°S 

RECORD 

3 


pixmap 

DS . L 

i 


Y 

DS . L 



heigh: 

DS . L 

1 


width 

DS. L 

1 


cols 

DS.L 

1 



ENDR 



dO- 

spare, 

dl - v4 3. d2 - v21, d3 - spare, d4 - width, d5 - inc. d6 

aO 

* 

- pm, al 

- Y 



link 

a6 , *0 

; no local variables 

• 

movem. 1 

d4-d7, - (a? ) 

; score registers 


move . 1 

PS. pixmap( a6 ) . aO 

; pm=pixmap 


move . i 

PS.Y(a6) .al 

; Y=Yc 


move . 1 

PS he ight i a6 ) , d7 

1 ong he igh t 


subq . 1 

*l,d7 

; height -=1 


move . i 

PS.width(a6i . d4 

; long width 


move . 1 

PS.cols(a6i ,d5 

; long inc=cols 


sub. 1 

d4.d5 

; inc-»widch 


i sr . 1 

-2,d4 

; widch>>-2 (read 4 values) 



*l.d4 

; width- si 

9dol 

move . 

d4 , d6' 

; count =vidth 



(al)+,dO 

; d0=x4x3 


move " 1 

(al ) + ,dl 

; dl-x2xl 


move . 1 

#$01FF01FF,d2 

■ d2»511 


move . 1 

d2,d3 

■ d3-511 


sub. 1 

d0.d2 

unsigned d2 


sub. 1 

dl,d3 

unsigned d3 


Isr. 1 

#2,d2 



lsr . 1 

*2,d3 



move . 1 - 

d2,d0 



or. 1 

d3,d0 



andi . 1 

#$3FOO3F00.d0 



bne . s 

eover 

if no overflow 


Isl . w 

>8,d3 

d3=0210 


lsl.w 

#8,d2 

d2s0430 


isr< i 

«8,d3 

d3=0021 


isl. 1 

»S,d2 

d2»4300 


or . 1 

d3 . d2 

d2=4321 


move . 1 

d2. (aOl* 

*pm=d2 


dbf 

d6,8do2 

while - i ! = - -counc 


adda. 1 

d5,a0 

pro-r = inc_b 


dbf 

d7.*dol 

while -lt=--height 


movem. 1 

(a7)<-,d4-d7 

restore registers 


unlk 

a6 

remove locals 


rts 


return 

Gover 

clr . w 

dl ; 

AND=G 


FIXOV 

d2 , dO . dl 

A overflow 


FIXOV 

d3.d0.dl 

B overflow 

* 

bra. s 

«ok 



ENDFUNC 


macro 
GGG 


&V,&SP1.&SF2,&AV 
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Y2GGG 

PS 

Y 

lines 
widen 
cols 


<?dcl 
■?do2 


rr.ove . 1 

&V.4SF2 


; SP2^0102 

lsl.1 

f a . is?2 


; SP2=1020 

cr. 1 

4V. iS?2 


; SP2=1122 

TCVC . 1 

4V. tSPl 


; SP1=C102 

swap 

&SP1 


n 1 ft *^ ft * 

; SPlsC2 01 

rove . *j 

tSP2. tSPl 


; SP1=0222 

swap 

&SP2 


; SP2=22 11 

rr.ove - w 

4SP2 , iV 


; VaOlll 

move . 1 

&V. &AV 


; w pm«V 

move . 1 

iSPl, fcAV 


; *pm=SPl 

en dm 




it &TYPE ( 'seg' ) * ' UNDEFINED' 

chen 


SPA 

&seg 



endi £ 




r unv. 




RECORD 

8 



OS* L 

1 



DS. L 

1 



DS. L 

1 



DS. L 

1 



DS. L 

1 



ENDR 




• v. d4 « 

• width. d5 - inc. d6 

- count, d7 - lines 

■ pm, al 

- Y 



link 

a6,§0 


■ no local variables 

mo van. X 

d4-d7, -<a7} 


' score registers 

move. 1 

PS.pixmap< »6 ) , aO 


pmmpixmap 

move. 1 

PS.Y(a6> ,al 


YsYC 

move. 1 

PS . lines Ia6 ) ,d7 


long lines 

subq. 1 

#l,d7 


lines-al " 

move . 1 

PS.width(a6) .d4 


long width 

move . 1 

PS.cols(a6) ,d5 


inc»cols 

sub. 1 

d4,dS 


inc -■width 

lsl.l 

#2.d5 


inc (bytes) 

lsr.l 

*2,d4 


width»-2 

subq. 1 

n.d4 


width-»l 

move. 1 

d4,d6 


count *width 

move . 1 

(al)*.dO 


d0=xlx2 (10 bits signed) 

move . 1 

(alK,dl 


dl»x3x4 (10 bits) 

move. 1 

#$02000200, d3 


d3*plus 

add.l 

d3,d0 


d0sxlx2 (unsigned) 

add. 1 

d3,dl 


dl«x3x4 (unsigned) 

lsr. 1 

#2,d0 


d0*xlx2 (10,8 bits) 

lsr.l 

#2, dl 


dlax3x4 (10,8 bits) 

move.w 

#$3FJT,d2 


d2=mask 

and. v 

d2,d0 


mask dO 

and. v 

d2,dl 


mask dl 

move. 1 

d0,d2 



or.l 

dl f d2 



andi. 1 

#$FFOOFF00,d2 



bne. s 

9 over 


if no overflow 

GGG 

d0,d2.d3. <a0) + 



GGG 

dl.d2.d3, taO)* 



dbf 

d« , 0do2 


while -1 : =- -count 

adda.l 

d5.a0 


pm+=inc_b 

dt>; 

d7.9drl 


vhi 1* -!!«--! ir.*f 


cuocTm itc cucrr route *c\ 
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rnovem. 1 

unlk 

rts 


endm 


(a*?) * 
a6 


. d4-d7* 


restore registers 
remove lccalo 
recurn 


rlr .v 

d3 

: AND-0 


FIXOV 

dC . d2 . d3 

A overflow 

FIXOV 

<il.d2.d3 

; B over tic* 


bra. w 

0oK 



ENDFUNC 




macro 




HKRGB2 

&R, 4C, 4B, 4ARCB, 

4 ROW. 4XX 


l3l. 1 

>»8,4G 

: C=C0G0 (12! 

or . 1 

4B, 4G 

; G=GBGB (12 

i 

move . 1 

&R.4B 

; B=0R0R (12 

I 

swap 

4B 

; B-OROR (21) 

move . w 

&G, 4B 

: E = 0 RGB (2) 


swap 

&G 

; G^GBGB (21) 

move . w 

4G, 4R 

; R=0RCB U) 


andi . 1 

"♦SFFFEFEFE.4R 

; 7 bits for 

interpolat ion 

andi . I 

■SFFFEFEFE, 43 

; 7 bits ror 

incerpclacion 

1 


; G=RGB(1) 


dOQ . 1 


; G-=RGB(2> 


Isr.i 

#1,4G 

; G/*2 


move . 1 

4fi » 4XX 

; XX = RGB (2) 


sub. 1 

&R, &XX 

; XX-aRGB(l) 


lsr.l 

♦ 1.4XX 

; XX/ =2 


add. 1 

4B.4XX 

; XX*=B 


move . 1 

4R, (4ARGBJ* 

; •RGB**=rgb 

(l) 

move . 1 

&C. ( 4ARGB ) ♦ 

; •RGB*+«rgb 

11.5) 

move . 1 

4B. < &A*GB ) - 

; •RGB**=rgb 

/2l 

move. 1 

£B, (&ARGB) + 

; *RGB*+*rgo 

(2.5) 

add.l 

4POW.4ARGB 



sub.l 

*16,4ARCB 



move . 1 

4R, ( 4ARGB J * 

; *RC3**«rgb 

(1) 

move . 1 

4G. ( &ARGB ) -r 

; *RCB*-argb 

(1.5) 

move . 1 

4B, ( 4ARGB ) - 

; *RCB*+=rgb 

(2) 

move . 1 

4B, ( 4ARGB ) * 

; •RC3**=rgb 

(2,5) 

sub. 1 

4 ROW, &ARGB 




if 4TYPE( ' seg' )*' UNDEFINED' 
seg 4 sag 


chen 


endif 
YUV2RGB3 FUNC 


EXPORT 


PS 

pixmaD 

Y 

U 

V 

araa 


RECORD 

DS.L 

DS.L 

DS.L 

DS.L 


siiRsrmiTF shfft mm f ?rc 
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■width 
cols 


;nc 

width 

:end 

coi:nt 

row 

-Size 


(?do 


DS.L 

1 

ZS . L 

1 

ENDR 


RECORD 

0 , DECR 

DS.L 

L 

DS.L 

1 

DS.L 

1 

DS.L 

1 

DS.L 

1 

EQCJ 

• 

ENDR 


aO - YO, 

al - Yl, a2 - U. a3 

dO . . 6 - 

used, d7 - counc 

link 

a6 , *LS . LSize 


d4 -d7/a3-a5. - (a7) 

- 

move . i 


move . 1 

a4 . ao 

move . 1 

PS . Yiao) , ao 

move. 1 

aO . al 

move . 1 

PS .U(a6) , a2 

move . 1 

PS . V(a6 ) , a3 

move . 1 

PS . area ( a6 ) , d7 

lsl. 1 

# 2 . d7 

add. 1 

a4 , d7 

move . 1 

d7 , LS . tend ( ao ) 

move . 1 

PS . width (ao) , d5 

move . 1 

d5 . d7 

asr. 1 

• 1 . d7 

subq.l 

»l.d7 

move . 1 

d7 , PS. width (a6) 

add.l 

d5.d5 

add.l 

d5,al 

add.l 

d5,d5 

move • 1 

d5 # LS . width fa.6) 

move . 1 

PS.cols<a6) ,d4 

lsl.l 

*2.d4 

move . 1 

d4,LS.rowU6) 

add.l 

d4,a5 

add.l 

d4,a5 

add. 1 

d4,d4 

add. 1 

d4,d4 

sub.i 

d5,d4 

sub. 1 

d3,d4 

move . 1 

d4 , LS. inc (a6) 

LJV2RGB3 

(a2)+, (a3)* 

TETCHY 

(aO)*,dO,dl.d2,d3 

FETCHY 

<al)*,d0.d4,d5.d6 

move.w 

#S3rTF,dO 

lsr.l 

*2.dl 

and.w 

dO,dl 

lsr.l 

• 2,d2 

and.w 

d0,d2 

lsr.l 

#2,d3 

and.w 

dO,d3 

lsr.l 

#2,d4 

and.w 

d0,d4 

Isr . I 

-2.d5 


a 4 - pmO, a 5 - pml 


inc. width, fend and rowend are loca 
store registers 

pmO«pixmap 

pnl>praO 

Y0=YC 

Y1=Y0 

U=Uc 

v.vc 

f end=area 
fend«=2 
t end+cpmO 
save f and 

width*widch 

count »width 

counc»»l 

count -«1 

save width 

width*=2 

Yl*»width 

width* s2 ** 

save width 

inc«cols 

inc<<=2 
•NEW save row 

pml* = inc 
■NEW pml*»inc 

cols*=2 
■NEW cols*=2 

inc now 4*cols-width bytes 
■NEW inc now 4*cols-width bytes twid 
save inc 

uv2rgb<*U++, -V**) 

add Ya to RGB values 
add Yb to RGB values 

dOxnask 

dl 8(16) bits 

dl masked 

d2 8(16) bits 

d2 masked 

d3 8(16) bits 

<U masked 

d4 8(16) bits 

d4 masked 

HnS\ bits 


ciincTiTinr cucct /oih c oc\ 
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■J ok 


3over 


and. w 

lsr.1 
and.w 

rr.cve . 1 
cr . L 
cr .1 
cr ,1 
or.l 
or.l 
andi . 1 
bne.w 

MKRGB2 
KKRCB2 
dbf 

adda . 1 
adda . 1 
adda. 1 
exg . 1 
reove . 1 
cmpa . 1 
bit.w 

mov«W . 1 

unlk 

rts 

move . 1 

clr.w 

FIXOV 

FIXOV 

FIXOV 

FIXOV 

FIXOV 

FIXOV 

move . 1 

bra 

nmrvue 


macro 
FETCKY2 

move . 1 

asr.w 

swap 

asr.w 

swap 

add.l 

add.l 

add.l 


dO.dS 

• 2.d6 
dO . d6 

dl.dO 
d2.d0 
d3,d0 
d4.d0 
d5,d0 
d6.d0 

• SFFOOFFOCdO 
Sover 

dl , d2 . d3 . a4 . LS . row ( a6 > 
d4,d5,d6.a5.LS.rowia6) 
d7 , 9do 

LS. inc(a6) . a4 
LS. inc ( a6) , a5 
LS.width(afi) ,a0 
aO, al 

?S. width* a6) , d7 
LS. £end(a6) , a4 
edo 

(a7>*.d4-d7/a3-a5 
a6 

d7, LS. count (a6) 
d7 

dl , dO . d7 
d2 . dO ♦ d7 
d3 . dO , d7 
d4 . dO . d7 
d5,d0.d7 
d6,d0,d7 
LS. count (a6) .d7 


d5 masked 

do 8(161 cits 

d6 masked 


iAY. tY, iR. tG. &B 


iAY 

&Y 

#2. 

&Y 

&Y. 

&Y. 

iY. 


&Y 
&Y 

fcY 

tR 

&B 


; if overflow 

, dO : 'NEW save RGBa 
,d0 ;*NEW save RGBb 
while 
pmO*=inc 
pml+=irx 
Y0*=width 
Y1<->YG 
courtc=width 
pmO< f end 
while 

restore reoisters 
reniove 1 oca is 
return 
save count 

ANEsO 

A overflow 
B overflow 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 


Y is -J-28 Co *127 

R£C G*t IY* 2V ♦ 512) for Red «■ (Y - 

BLUE,Cet (Y * <2U * 512) for Blue * I 


en dm 


macro 
QV2RGB4 

move, w 
and.w 
move. 1 
move. 1 

move. 1 
move . w 


iAU.iAV 

iAU,d2 
#$03FF,d2 
(a6.d2.w8) ,d3 
dJ,d6 

4<a6,d2.w»8) ,d5 
*AV,dl 


BLUE, Get (2U * 512J/4 for Blue - <Y * 
^ r c:r^2 P t^6U/X6))/4 for Gree 


CllOCTITMTC CUCCT /DIM C OC\ 
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move . v 

dl,d4 


asr,w 

42, dl 


sut.w 

dl.dS 

;GR££N. Gee ( 5 12 - '6U/16) 

move . w 

35, d2 


swap 

d5 


move . w 

d2.d5 


move . 1 

di,d2 

; Dup for second pair 

and. v 

*S03FF.d4 


move . 1 

(a6.d4 ,W8) ,d4 

; RED, Get <2V «■ 512) /4 for 

move. I 

d4,dl 


endm 




NXRC32SUB FUNC 


EXPORT 


MKRGB2 
MKRGB2 
res 


dl.d2.d3.a4.d7.d0 
d4,d5,d6.a5,d7,d0 


•NEW save RGBa 
"NEW save P.GBb 


ENDFUNC 

OVERSUB FUNC 

move . 1 
or.l 
or. 1 
or.l 
or.l 
or.l 
andi . 1 
bne. s 
9ok rta 
Cover move.l 
clr.v 
FIXOV - 
FIXOV 
FIXOV 
FIXOV 
FIXOV 
FIXOV 
move. 1 
bra 

ENDFUNC 

UV2 RGB 4 SUB FUNC 

UV2RGB4 
rta 

* 

ENDFUNC 

FETCKY2SUB FUNC 
* 

FETCHY2 
FETCHY2 
rta 


EXPORT 

dl,d0 
d2,d0 
d3.d9 
d4.d0 
d5,d0 
d6.d0 

•$FF00FF00,dC 
ftover 


•<sp> 


d7 # - 
d7 

dl.d0.d7 
d2.d0.d7 
d3,d0,d7 
d4.d0,d7 
d5.d0.d7 
d6.d0.d7 
Op) + ,d7 
9ok 


EXPORT 
(a2)+, <a3) + 

EXPORT 


U0)*,d0,dl,d2,d3 
Ial)4>.d0.d4,d5,d6 


if overflow 

save count 
AND.o 

A overflow* 
B overflow 
A overflow 
S overflow 
A overflow 
B overflow 
restore count 


uv2rgb<*U+-. »V**) 


add Ya to RGB values 
add Yb to RGB values 


ENDFUNC 


i f 4 TYPE ' ' m * ■ MHDEFTNTD 4 -.hen 
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end it 


&seg 


fUV2RCB5 


"UNC 


EXPORT 


Table 
piwnap 

Y 
U 

area 

width 

cois 


IS 

inc 

width 

tend 

count 

row 


PS.Z09S) 
DS.- 
DS. 1 
DS. w 
DS.L 
DS. L 
DS.L 
DS. L 
DS.L 
ENDR 

RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

ENDR 


aO - YO. ai - Yl. a2 - a, a3 
d0..6 - used. d7 - count 


DECK 


link 
movem . 1 

move. 1 
move . 1 
move . I 
move. 1 
move . 1 
move. 1 
move . 1 
lsl.l 
add. 1 
move . 1 
move . 1 
move . 1 
asr.l 
subq. 1 
move . X 

add.l 

add.l 

add.l 

move. 1 

move. 1 

lsl.l 

move. 1 

add.l 

add.l 

add.l 

add.l 

sub. 1 

sub.l 

move . 1 


a6, #LS.LSiie 
d4-d7/a3-a5. -(a?) 

PS. pixmap(a6) , a4 
a4.a5 

PS.YU6) ,a0 
aO.al 

PS. U(a6> ,a2 

PS.VU6) , a3 

PS.area(a6Kd7 

#2,d7 

a4,d7 

d7, LS. fend(a6) 

PS.vidth(a6) .d5 

d5,d7 

#l.d7 

#l.d7 

d7, PS. width (a6» 

d5,d5 
d5.al 
d5,d5 

dS.LS. width (a6) 
PS. cols U6) ,d4 
#2,d4 

d4,LS.rovU6) 

d4,a5 

d4,a5 

d4.d4 

d4,d4 

d5,d4 

d5,d4 

d4,LS.inc(a6> 


V, a 4 * pmO, a 5 - pml 

; inc* width, fend and rowend axe loca 
; atore registers 


pcnOspixmap 

pml =pmO 

YO-Yc 

Y1-Y0 

UaOC 

VaVc 

fends area 
fend«=2 
f end*=pmO 
save fend 
width*width 
count=width 
count 
count -»1 
save width 

width* *2 

Yl^tiwidch 

width* i2 

save width 

inc»cols 

inc<<=2 
•NEW save row 

pml* = inc 
•NEW pml+»inc 

cols*»2 

•NEW C0l3*=2 

inc now 4*colfl-width bytes 
•NEW inc now 4 -cols-width bytes iwid 
save inc 


ci ioctiti trr rucrr mi n r 
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move . - 
move . 1 
move . i 
JV2RGB4 

F ITCHY 2 
TETCHY I 


a6, - (sp) 
LS, row(a6) ,-d7 
?S . Table (a6 i . ao 
(a2) <a3) ♦ 


i aO ) < 
:al)< 


.d0.dl.d2.c3 
,d3,d4.d5.do 


uv2rgb( •U«-. -v~-> 

Add Ya co RGB values 
add Yb co RGS values 


<?ok 


(?over 


move . - 
or. 1 
cr .1 
or . ; 
or. 1 
or.l 
andi . 1 
bne , w 

HKF.GB2 
MKRGB2 
move . 1 
move . 1 

dbf 

adda • 1 
adda . 1 
adda . * 
exg. 1 
move. 1 
cmpa . 1 
bit. a 

rnovem. 1 

unlk 

res 

move . 1 

clr .w 

FIXOV 

FIXOV 

FIXOV 

FIXOV 

FIXOV 

FIXOV 

move . I 

era 


dl.dO 
d2,d0 
d3.d0 
d4,d0 
d5,dG 
d6,d0 

»$Fr 00FF00,d0 
Qover 

dl,d2.d3,a4,d7,d0 
d4,d5,d6,a5,d7,d0 
( sp> ♦ , a6 
(sp)*,d7 

d7 . ado 

LS. ine<&6) . a 4 
LS. inc(*6) .a5 
LS. width (a6 ) »a0 
aO,al 

PS.widthtaS) ,d7 
LS, fend<a6) .a4 

(3do 

Ia7)+,d4-d7/a3-a5 
a6 

d7, LS . count (a6 ) 
d7 

dl.d0.d7 

d2.d0,d7 

d3,d0,d7 

d4,d0,d7 

d5,d0,d7 

d6,d0,d7 

LS . count (a6i ,d7 

eok 


; if overflow 

•NEW save RGB a 
•NEW save RGBb 


while 

pmO- = inc 
prnl* = inc 
Y0+= wider. 
Y1<->Y0 
count »width 
prn0<f end 
while 

restore registers 
remove locals 
return 
save count 
AHD»0 

A overflow 
B overflow 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 


ENDrUNC 


END 


Pi inmn itp rurrr mm r 
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' 3 Copyright 1993 KLICS Limited 

• All r ignis reserved. 

• wr.::^n by : Adrian Levis 


Analyse CLUT setup and pick appropriace 
YUV->RCB converter /display driver. Create 
any cables necessary. 

• / 

•include <QuickDraw . h> 
amcluae <Memory.h> 

-define Y_LEVELS 64 
= dafme 'JV.LEVELS 16 

-define absvfv) ( t v><C?- fv) : (v J ) 
^define NewPomter tptr , type . size ) \ 
saveZone=Gec2one ( : : \ 
Setlone t SysiemZone ( ) ) ; \ 
iz tnil = =<pcr» (type )NewPtr ( size) ) ) ( *. 
SetZone ( ApplicZone I ) ) ; \ 
it {nil== (ptr= < typejNewPtr ( size) ; J ( \ 
SetZone ( saveZone ) ; \ 
return (Memory Err or t ) ) ; \ 

) \ 

) \ 

Set2one ( save2one ) ; 

typeder struct ( 

cnar y, u, v: 
) YUV.Clut; 


unsior.ed char * 

CclourCiuc (CTabHandle clue) 

ir.t size, y* u. v. r. g. b. i; 
unsigned char -table; 
YUV_C 1 u t • y uv_c lu c ; 

s izes !• clue ) ->ct Size; 

-able- (unsigned char * )NewPtr ( Y_ LEVELS *UV_ LEVELS *UV_ LEVELS) ; 
yuv_clut= ( YUV_Clut • JNewPtr (sii«*si2eof <YUV_Clut ) ) ; 

for ( i=0; i<=size; i**) ( 

r=( ccluc) ->ctTable(i) . rgb.red>>8) -128; 
g={ { 'clut ) ->ctTablefi] . rgb.gre*n>>8 ) -128; 
b=( {-clue) ->ctTable(i] . rgb.blue»€ ) -128 ; 

yuv clut[ij.y* (306*r + 601-g ♦ 117*b)»10; 
yuv_clut(i] .ua t512*r - 429-g - 83*b)»10: 
yuv_clut(i] .v» (-i73*r - 339*g ♦ 312*b)>>10; 

) 

f or (y=-Y_LEVELS/2;y<Y_LT\/ELS/2-l;y**> 
f or (u=-UV.LTVELS/2 ; u<UV_LEVELS/2-l ; u+* > 
tor ( v»-'JV~ LEVELS/ 2 ;v<UV_ LEVELS /2-1 ; v** ) ( 

int index, error, error 2 ( points , Y, U. V; 


!QI IRQTITI ITT QUCFT /Rill P 0P\ 
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Y=y<<4 : 

U=u<<5; 
Vav<<5 ; 

ir.dex = 0: 
error=131072; 
error2=I31072; 
point s=0; 

for ( i=0; i<=size; i++) ( 
inc pcn=0. err=0; 

it (yuv_clut(i) .y>=Y && yuv_cluc [i] .y<Y*16J 

err*=ab3v(yuv_clut [i] .y-Y) ; 

if (yuv.clut [ij ,u>aCJ && yuv_c lut ( i J . u<U*32 i 

err*=Absv(yuv„clut [i J .u-U? ; 

if (yuv^clut [i] .v>=V && yuv„clut (i] . v<V*3Z) 
pcs+sl; 

err*sab3vlyuv_clut f i] .v-V); 

if (pcs>points II <pts*=points && err<error») { 
errorserr; 
indexsi; 
point»*pta; 

) 

) 

i={ (yt0xlF)«8) I ( <u&0xF>«4) I (v&OxF) ; 
tablet i)» (unsigned char) index; 

) 

DisposePtrt (Ptr)yuv_clut» ; 
return table; 


typed** union ( 

long pixel; 

unsigned char rgb(4]; 
• Pixel; 
/ • 

unsigned long • 

ColourClut (CTabHandle clue) 

long size, y, u, v, r. g. b. ro, go. bo,i; 
Pixel 'table; 

size* ( •clue) ->ctSize; Mty _ 4 

tables (Pixel • jwewPtr (Y_LEVELS*UV_LTVELS«UV_LEVELS»si2eof (long) ) ; 

f o r (y * - Y_LEVELS / 2 ; y < Y.LEVELS / 2 - 1 r y ) 
for (u»-UV_LTVELS/2 ; u<0V_LEVEXS/2-l;u+* ) 
for(v=-UV.LEVELS/2;v<UV_LEVELS/2-l;v**) ( 

Pixel px; 

long base* dich; 

r a 32768L ♦ <(y«9) ♦ 1436L*U «2); 

g » 32768L ♦ ( (y«9) - 731L*u - 352L*v «2) ; 

b - 3276HL * (<y«9) ♦ 1815L*v «2 ) ; 

r=r<0?0:r>6 5 534?63534:r; 
g=g<0?0 :g>65 534 765534 :g; 
b=b<0?f! : fc>65534 755 534 :b; 
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rc=r%13107; r*r/13107 ; 
go=<j%13107; g=g/l3107 ; 
bo*b%13107; b=t>/13107 ; 

base=2 15- ( 35*r*6*g*b) ; 

dithrbase- ( rO>2 621?36 :0) - (gc>7863 76 : 0) - lbo>104S4?l:0) ; 
px. rgb(0| s di = h--*215?255:dich; 

dith=base- < ro>5242?3S : 0) - ( go>104 84 76 : 0 ) - (bo>2621?l ; 0 ) ; 
px.rgb(l]rdich==213?2 55:dicn; 

dith^base- { ro>7 863 ?3£ : 0 > - { go>2621?6 : 0 ) - 'bo>52 42 ?1 : 0 ] ; 
px.rgb[2] = dich=:a215 7255 :dith; 

dith=base- (ro> 10484 73 6:0) - <go>524 2 7 6 : 0 ) - <bo>7863 71 : 0 J ; 
px.rgb(3]=dith==215?2S5:dich; 

i» ( (y&0x3F)«8) I < (u£0xFX<4) I (viOxF) ; 

cabled] .pixelrpx. pixel: 

recum (unsigned long") table; 


typed* f struct ( 

long rod, green, blue; 

) KCBError; 

OSErr ColourClut ( Pixel ••table) 

( 

long y, u, v. r, g. b, i; 
RGBError w eri; 
THz saveZone; 

NewPoincert -table. Pixel*, Y_LEVELS«UV_LEVZLS % UV_L£VEL5*aizeoE (long) ) ; /* 64k ta 
Nevpointer < err, RGBError*, Y_ LEVELS*UV_ LEVELS *UV_ LEVELS* Si zeof (RGBError) ) ; 

for ( i=0; i<4; i*+) 

for ly=-Y_LEVELS/2;y<Y_LEVELS/2;y**) 
tor ( u = -UV_ LEVELS/ 2 :u<UV_LEVELS/2; u+* ) 
fcr(v = -U\'_LEVELS/2;v<UV.LEVELS/2;v**) { 

RGBCoLor src, dst; 

long index, in ; 

mdexa ( (y&0x3F)«8) I ( (ut0xF)«4) I (v&OxF) ; 

r s 32768L ♦ ( <y<<9) * (1436L*u) «2); 

g = 32768L ♦ l(y«9) - <731L«u) - (352L*v) «2 > ; 

b = 32768L ♦ Hy«9> ♦ UBISL-v) «2); 

it ii>0) ( 

r-aerr( index) . red; 
g-=err[ index] .green; 
b- -err [ index] .blue; 

) 

src. red*r<0?0:r>65534? 65534 : r; 
src .green»g<0?0:g>6 553 4?65534 : g; 
src. blue=tx0?0:b>65534 765534 :b; 

'■•:able» f in3*x) . r?b{i] =. 'unsigned rh?.r » C?I?r2ln*ey '*src * r 


idctitmtT" Purrr ;ni m r nc^ 
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lndex2Colcr (( 'table) ( index J . rgbfil . idst ) : 
err ( index] . red=dat . red- arc . red; 
err { i.idix i . gre«n*dst . green- sre . green; 
err { index 1 . fclue=dst . blue-*rc . oiue; 

OisposePtri iPtr ?err i ; 
return ( noErr J ; 

/ 

v/pedef struct ( 

short pel [2] ; 
} Pixl6; 

:ypede£ struct ( 

unsigned char pel 14] ; 
j ?ix8; 

*def ine YS 64 
^define UVS 32 

OSErr Colours (Pix8 "table) 

long y. v. r, g, b. i; 
RGBExror 'err; 
THt aaveZone; 

NewPointer(*tai)le,Pix6*.YS'UVS*UVS*5izeo£(Pix8)); /• 128k table •/ 
NewPoincer terr , RGBError* . YS'UVS'UVS* sixeof (RCBError) ) ; 

for ( i=0; i<4;i*+) 
for (y=-YS/2;y<YS/2;y-*) 
for (u» -CVS/2 ; u<UVS/ 2 ; ) 
f or ( v=-UVS/2 ; v<UVS/2 : v*+ ) { 

FGDColor sre, dst; 

long index; 

index=(y*<10) I ( (u&0xlF><«5> I (v&OxlFJ ; 
r = ''2768L * (iy<<10) «■ (1436L*u) 

g = 32768L * i(y«10> « (731L«u) - (352L'v) «1) ; 
b = 3276BL * l(y<<10) * (I815fv) «X) ; 

if (i>0) ( 

r-=err ( 32768+index) .red; 
g-=err [32768+index! .green; 
b-=err |32768*index) .blue; 

) 

src.red=r<0?0: r>65534?65334 :r; 

3 rc.green*g<0?0:g>65534?65534:g; 

src.blue*b<0?0:b>65534?65534:b; 

(•table) [32768*ir«iex). pel [i] = (unsigned char >Color2 Index ( t«rc) ; 
Index2Colorl ('table) (32768*index) .pel I ll . *dst ) : 

err 1 32768+index) . red=dat . red-arc . red; 

err [32768-index] . green =«dat .green- sre . gr een; 

err (32768* index) .blue=d*t .blue-src .blue; 

) 

DispoaePtrt (Ptr)err) ; 
return (noErr ) ; 
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■SErr CoiourH I Pixl6 


aolei 



g. b.' i; 


•err 
saveZone 


NewPOi.-^er : * : able. ?j x16' . YS"JYS"JVS* sizeof ( Pixl6 ) I : /* 128k cable V 
NevPointer (err. RGBEr ror • . YS"JVS*UVS* sueof (RGBErrcr) ) ■ 

!cr ( 1=0 : l<2 ; i*- ) 
icr (y=-YS/2 ;y<YS/2 ;y**i 
fcr iu = -UVS/I ; u<UVS/ 2 ; ) 
:cr (vs-UVS/2 ; v<UVS/2; v**J ( 

RCBColor src. dst; 

lor.g index; 

ir.dexz (y < < 1 0 ) I ( ( utOxlF) <<5 ) I (v&OxlF) ; 

r = 32768L - { (y<<10) ♦ <1436L # u) 

g = 32768L * { (y«10) - (73iL-u) - (352L*v) 

b = 22768L ♦ ((y«10l ♦ (1915L*v) «1> ; 

if (x>0) ( 

r-=err [ 32768* index) . red; 
g- = exr ( 32 7 68 + index J .green; 
b-=err [ 32768*indexJ .blue; 


src. xed=r<C?0;r>65534 765 534 ; r; 
src. green. g<0?0:g>6 5 53476 5534: g; 
src. blueab<0?0:b>65 53476 5534: b: 

dst. red* arc .red*0xF800; 
dsc. gre«n= src . gr*«n£GxF800: 
dsc.blue. src.bluei0xF800; 


(•cable) [32 766* index) .pel [i] * (dst .red>>l) I (dsc . green»6 ) 

err [32768* index) . redrdst . red-src . red; 

err (32768* index] .green-dsc . green- src . green; 

err [32768*index] . blue=dst .blue-src . blue; 


■ DispcsePtr ( (Per ) err) ; 
recurnmoErr) ; 


Bcolean 

GreyClut (CTabHandle clut) 


Boolean result = true; 
int i, size; 


size- ( •clut) ->ctSize: 

for ( isO; iosixe && result ( 


inc r,g,b; 


r=(*clut)->ccTableii] .rgb.red; 
g« (-clue) ->ctTable(i1 . rgb. green; 
b= <*clut)->ctTable(i] .rgb.blue; 


results iz'-g g=sb); 
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Bics3.h: fast bit read/write definitions 


buf_use define static variables 

buf_winit initialise vers for write 

buf_rmit initialise vars for read 

buf.set set current bit 

buf_get get current bit 

buf.winc increment write buffer 

buf_rinc increment read buffer 

tuf.size fullness of buffer in bytes 

buf. flush flush buffer 

User defined macro/ function buf.over must be defined in case of buffer over f la 

typedef struct { 

unsigned long *buf; 
union { 

unsigned long mask; 
long bno; 
) index; 

unsigned long "per. data, size; 
) Buffer. *Buf; 

■define buf _winit ( buf ) \ 

buf ->index.mask=0x80000000; \ 
buf ->ptr=&fcuf ->buf [03 ; \ 
buf->data*0; 

^define buf_rinit ( buf ) \ 
buf -> index . bnosO; \ 
buf ->pcr=&buf ->bu£ [0] ; 

^define buf_set(buf» \ 

buf-^data is buf -> index. mask; 

^define buf_get(buf) \ 

0 ! = <buf->data i ( l<<buf- > index. bno) ) 

•define buf_winc (buf ) \ 

if (buf->index.mask==U ( \ 
•buf ->ptr=buf ->data; \ 
buf->Uata*0; \ 

buf-»index,ma*k»0x80000000; \ 
buf->ptr++; \ 
) else buf -> index. mask >>= 1; 

•define buf^rinc Ibuf ) \ 

if { (buf -> index. bno) <0 ) ( \ 
buf->data=*buf ->ptr+f ; \ 
buf -> index . bno«3 1 ; \ 

); 

/* buf si2e only valid after buf_flush 
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•define bur_siz« (buf ) \ 

(unsigned cnar buf - >pc r- (unsigned char • ) &bv t - >buf [ 0 ] 

•define bu f_f lush < buf ) \ 

if i tut -> index . masJt! =0x80000000) { \ 
but -->daca I = buf -> index, ma ate - I; \ 
*buf ->ptr=bui ->daca; \ 
buf->pcr+^; \ 

} 
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63000 Bj t buffer code (Bics?..h) 



Macros : 




bu f _w i n i n 

tptr . idaca, imask, 4 buf 



buf _r init 

iptr. ibno. tbuf 


* 

buf.sec 

idata. &jnask 



buf.get 

idata. tbno 


* 

buf _winc 

iptr , tdata. ionask 


• 

buf _r inc 

iptr. fcdaca, & index 



oui„ i lusn 

&pt r , &daca , &jnask 



macro 




but_winit 

4pcr . &data, &/nask, &buf 



move . 1 

*$80000000, kjnasK 

; masks 100 . . 


move . 1 

ibu£. 4pcr 

; pcr=t?ur 

* 

clr.l 

idata 

; dat a- 0 


endm 




macro 




buf.rinic 

&ptr. ibno, £buf 



clr .b 

&bno 

; bno*0 

• 

move . 1' 

ibuf . 4ptr 

; pcr*buf 


endm 




macro 



* 

buf.set 

&data. tmask 


* ■ 

cr.l 

£mask, idata 

,- data mask 


endir. 




macro 




buf_get 

&data, tbno 



subq.b 

#1, ibno 



btst 

ibno, idata 



endm 




macro 




buf _winc 

iptr, &data, imask 



lsr.1 

•l.&mask 

; mask»*l 


bne. s 

Pcont 

; if non-zero continue 


move. 1 

&data, i&ptr) ♦ 

; •ptr**=daca 


clr.l 

idaca 

datasO 


move . 1 


: m^Hk-rlOO. . . 
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enclm 



nacro 
buf.nnc 

ipcr , idata. tbno 



cmpi . b 
bge . s 
swap 
move - w 
add.b 

*16, &bno 

9cont 

&data 

t&pcrl+.idaca 
»16 , &bno 

; datas-pcri-- 
bno**16 

(?cont 





en dm 




macro 

buf flush &ptr,&data,&ma3ic 


cmp . 1 
beq. 3 
move. 1 


*$800000GG, imaak 
3 cone 

&data. l&ptr) * 


mask-8000000? 

if buffer enrpcy continue 

w pcr***data 


endni 
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Extra fast Bac>cward\ convolver 

New wavelet coeffs : 3 5 11, 12 1. 11 

Optimized for speed: 
dirn - False 
sre/dst octave = = 0 


« define BvdSO ( addr 0. dAG. dAH. dBHI \ 
v=* ( short * ! addrO; \ 
dAG- -v; \ 

dAH = v; \ 
dBHs v«l; \ 

■define BwdSl I addrl , addrO . dAG. dAH, dEHl \ 
vr* ( short • : addrl; \ 
dBH** v>>±; \ 
dAG+» t vs«v<<l} ; \ 
dAH - = v* < vs<< = l > ; \ 
•{short • )addrO=dBH>>l; 

^define Bwd2 ( addr 2 , dAC . dAH . dBG . dBH ) \ 
v= • ( short • ) addri ; \ 
dBG- -v.- \ 
dBH= v; \ 

dAH*s v* ivssv<<1) ; \ 
dAG** v*(vs<<=1); 

*define Bwd3 I addr 3 . addr 2 , addrl . dAG , dAH , dBG . dBH) \ 
vs- I short ')addr3; \ 
dAH** v; \ 
dAG* = v; \ 

dBG* = v+(vs=v<<l): \ 

dBH-s vivs<< = 1); \ 

» t short * ) addr 1 a 1 dAH* 1 ) >>2 ; \ 

*t short • J addr2 * i dAG* 1 ) >>2 ; 

■define BwdO ( addr 0 . dAG . dAH . dBG . dBK ) \ 
v=m short *)addxO; \ 
dAG= -v; \ 
dAH= v; \ 

dBH* = v* < vs»v<<1 ) ; \ 
dBG** v*tvs<<sl); 

#define Bwdl ( addr 1 . addxO * addr 3 , dAG , dAH , dBG ♦ dBH ) \ 
v=*{ short •) addrl; \ 
dBH*= v; \ 
dBG* = v; \ 

dAG*= v*(vs»v<<1); \ 

dAH-* v* (vs<<»1) ; \ 

•(short • )addr3* <d£H*l ) »2 ; \ 

•(short • ) addr 0 ^ < dBG* 1 ) > >2 ; 

-define 5vdE2 ? addr : . dAC . dAH , iSH : 1 


r»i inrnTi irr r»i ir"i — r /r»i tf r orr\ 


WO 94/23385 


PCT/GB94/00677 


- 779 - 


Engineering: Xi-csCode : CompPict : Backward. c 

v= * I short • > addr2 ; \ 
dBHs 7s=v<<1; \ 
dAH* = v-(vs*v<<1); \ 
dAG*» V*- (V3<<a I ) ; 

-define Bwd£3 f addr 3 . addr2 . addrl . dAG , oAH , dBH ) \ 
v=* i shore * ; addr 3 ; \ 
dAH* ■ v; \ 
dAG* = v: \ 

dBH- = V+(VS=V<<1|; \ 

dBH - a v* i vs<< = 1 ) ; \ 

■(short •) addrl:* (dAH*l>>>2; \ 

•(Short * )addr2r (dAG*l) >>2; \ 

•(short ')addr3=dBH>>l; 

"define Bwd ( base . end, inc) \ 
addrOabase; \ 
addx3=addr0- ( inc>>2) ; \ 
3ddx2aaddr3- ( inc>>2) ; \ 
addr l=addr2- I mc>>2 ) ; \ 
BwdSO (addrO , dAG , dAH, dBH) ; \ 
addrlfs inc; \ 

BwdSl(addrl,addrO,dAC,dAH,dBH); \ 

addr2** inc : \ 

while (addr2<end) { \ 

Bwd2 f a ddx 2 . dAG , dAH , dBG , d3H ) ; \ 

addr3**inc; \ 

Bwd 3 (addr 3 . addr 2 * addrl , dAG. dAH, dBG, dBH) ; \ 
addxO*=inc; \ 

BwdO (addr 0, dAG, dAH, dBG. dBH) ; \ 
addr 1*= inc; \ 

Bwdl ( addrl , addrO , addr 3 . dAG, dAH, dBG. dBH) ; \ 
addr2*»inc; \ 

) \ 

BwdE2 ( addr2 . dAG , dAH , dBH } ; \ 
addr3*=inc; \ 

Bwd£3 (addr 3 , addr 2 , addrl , dAG. dAH, dBH) ; 

^define BwdS0r2 (addr 0, dAG, dAH. dBH) \ 
vaMsnort *)addr0; \ 
dAC= 0; \ 
dAH» v: \ 
dBH= v; \ 

-define BwdSlr 2 (addrl, addr 0, dAG, dAH. dBH) \ 
(short •) addrl; > 
dBH*= v»2; \ 
dAG+x V; \ 
dAH-» v«l: \ 

•(short • ) addr 0= dBH; 

'define Bwd2r2 ( addx2 , dAG , dAH , dBG , dBH) \ 
v= * ( short " ) addr 2 ; \ 
dBG* 0; \ 
dBH= v; \ 
dAH*» v; \ 
dAGt-s v«l; 

»define Bwd3r2 (addr 3. addr 2 , addrl, dAG. dAH, dBG .dBH) \ 
v=*( short -)addr3; \ 
dAH*. 0; \ 
dAG* a v; \ 
dBG** vr v 
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-ISH-r 7<<i; x 

' ■sr.or: v addrl-dAH>>l. . 

• snc:; • ; addr2*dAC>>l ; 

■define 3vd0r2 taddrO . d*C. dAh. dBG. dBH) \ 
v= • ; shore * i addrO : \ 
1AG a C: \ 
dAH= v: \ 
dBH- = v; \ 
dBG- = v<<l, 

•define Bvdlr2 raddr 1 . addrO . addr 3 . dAG. dAH . dSG . dBH I \ 
v = * ( short * I addrl; \ 
dBH* a 0: \ 
<±BG- = v; \ 
dAG- = v; \ 
dAH- = v<<1; \ 
♦(shore * ) addr3»dBH>>l; \ 
*i short •)addrOsdBG»l; 

wdefine BwdE2 r2 ( addr 2 , dAG , dAH , dBH ) \ 
v=*< short •iaddr2; \ 
dBH= v: \ 
dAH*= v; \ 
dAG* a V<<1; 

•define Bwd£3r2 ( addr 3 , addr2 , addrl . dAG, dAH. dBH) \ 
v»*( short *)addr3; \- 
dAH* = 0; \ 
dAG* = v; \ 
dBH- a v; \ 
dBH-- v«l; \ 

* (short *) addrl sdAH»l; \ 
•(short • ) addr2=dAG>>l; \ 
•(short *Jaddr3»dBH; 

fcdeiine Bwdr2 fbase. end. inc) \ 
addrO-base; \ 
addr3*addr0- ( inc>>2) ; \ 
addr2saddr3- t inc>>2) ; \ 
addrl=addr2-( inc>>2) ; \ 
BwdS0r2 (addrO.dAG.dAH.dBH) ; \ 
addrl*=inc; \ 

BwdSlr2 (addrl. addrO.dAG.dAH.dBH) .- \ 

dddr2 ♦ = inc ; \ 

while iaddr2<endl i \ 

Bwd2r2{addr2.dAC,dAH.dBC.dBH); \ 

addr3+=inc; \ 

Bwd3 r 2 ( addr 3 . addr2 , addrl , dAG . dAH , dBG , dBH ) ; \ 
addr0+»inc; \ 

Bwd0r2 (addrO.dAG.dAH.dBG.dBH); \ 
addr 1 * = inc ; \ 

Bvdlx2 (addrl. addr 0, addr 3. dAG, dAH, dBG, dBH) ; \ 
addr2+=inc; \ 

) \ 

Bvd£2r2 (addr 2 .dAG, dAH, dBH) ; \ 
addr3*»inc; \ 

Bwd£3 r2 ( addr3 . addr2 . addrl , dAG , dAH , dBH ) ; 

#de£ine BwdS0r3 (addrO , dAG, dAH, dBH) \ 
v=» (short •JaddrO; \ 
dAG= 0; \ 
dAHs Or * 
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dSH= v»i: \ 

■define 3wdSlr3 ( addrl . addrO . dAG , dAH , dBH ) \ 
*/=•! short * ) addrl; \ 
d3H- = v>>3; \ 
d_\G* = v; ■ 
dAH - - v; \ 

•(short • ) addrO=dBH<<l; 

•deime Bwd2 r3 ( addr2 . dAG . dAH . d£G , dBH ) \ 
v = M short »)addr2; \ 
1BG= 0; \ 
dBHs 0; \ 
dAH* = vr \ 
dAG** v; 

•define Bvd3r3 ( addr3 . addr2 , addrl. dAG . dAH . dBG, dBH) \ 
v=«(ahorc # >addr3; \ 
dAH* = 0; \ 
dAG+= 0: \ 
dSG+a v; V 
dBH-" v; \ 

"(short •) addrl =dAH; \ 
M short *)addr2«dAG; 

^define Bwd0r3 (addrO . dAG. dAH, dBG. dBH) \ 
v?* (short •laddrO; \ 
dAG« 0: \ 
dAH* 0; \ 
dBH*- v.* \ 
dBG* a v; 

•define Bvdlr3 (addrl . addrO, addr3 , dAG* dAH. dBG. dBH) \ 
v=» (short *) addrl; \ 
dBH+a 0; \ 
dBG* = 0; \ 
dAGf = v; V 
dAH-* v; \ 

•(short ')addr3=dBH: \ 
•(short *)addx0»dBG: 

pdefine BwdE2r 3 iaddx 2 .dAG. dAH. dBH) V 
v=* (short *)addr2: \ 
dBH= v»l; \ 
dAH** v; \ 
dAG+= v; 

^define Bwd£3r3 (addr3,addr2,addrl,dAG,dAH.dBH) \ 
v=*( short *)addr3; \ 
dAH*3 0; \ 
dAG+= 0; \ 
dBH-- v; \ 
dBH- ■ v; \ 

•(short *)adfirl»dAH; \ 
•(short *)addr2*dAGj \ 
•(short •)addr3»dBH«l; 

♦define Bwdr3 (base, end. inc) \ 
addrO-baae; \ 
addr3=addr0- < inc»2) ; \ 
addr2*addr3- (inc>>2) ; \ 
addrl =addr2 -( inc>>2) ; \ 
BwdS0r3 (addrO.dAG.dAH.dBH) ; \ 
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addrl~-ir.c; \ 

3wdSlr3 ( addr 1 . addrO . dAC . dAH . dBH ; ; * 
addr2~ = ir.c; \ 
whileiaddr2<end) { > 

Ewd2r3 (addr 2 . dAG , dAH . dBG . dBH ) ; ^ 

addr 3-« : nc ; \ 

Ewc3 r 3 : addr 3 . addr 2 . addr 1 . dAG . dAH . dSG , dBH ) ; \ 
addxO*= inc; \ 

BwdO r 3 t addr 0 , dAG . dAH , dBG , dBH ) ; \ 
addr lysine: \ 

Bwdlr3 (addrl. addrO . addr3 . d\G. dAH . dBG , dBH) ; \ 
addr2+=inc; \ 

) \ 

8wdE2r3 (addr 2. dAG. dAH. dBH > ; \ 
addr3*^inc; \ 

BwdE2 r 3 ( addr 3 . addr 2 . addr 1 . dAG, dAH . dBH ) ; 


extern void F AST BACXWA RIM char -data, long incl. long loop!, long iac2. char end2 
extern void HAARBACKWARDichar -data, long incl. long loop 1. long mc2, long loopi) 
excern void HAARTOPBWD (char 'data, long height, long width) ; 
/» extern void HAAJOCTOP3WD< char »data, long area);*/ 

void FasterBacJcvardtchar -data, long incl, long endl, long inc2, char -«nd2> 

1 register short v, vs. v3, dAG, dAH. dBG, dBH, inc; 
register char *addrO. 'addrl. *addx2, *addr3, -end; 
char 'base; 

inc=incX; 

tor Ibas€=data;base<end2;base*xinc2) { 
end» base* endl ; 
Bwd< base. end. inc); 

) 

) 

extern void TOPBWDichar -data, char «dst. long slze.1. long size.O); 

void TeatTopBaclcward( short ♦ data, int siao(2),int oct.src) 

{ int oct. area»size[0] 'size(l)«l; 

short width=size (0]<<1; 

char •cop»ar«a*(char *)data. • left =vidth* (char Jdata. 
cor (oct *occ_src-l; oct>0;oct — ) { 

rinc=sizelO)«ocfl. nnc4*rinc«2; /• col and row increments in t 

FASTBACKWARD ( (char •) data, rinc4 , area- ( rinc<<l ) .cine. left) ; 
FASTBACKWARD( ( char • ) data . cinc4 , width- ( cmc« 1 ) . rinc . t op I . 

FasterBacfcvardUchar • )data, aizetO] «3.area- (size(0]<<2 ) . 2 . left) ; 
FasterBac)cvard<<ch*r *) data, 8. width- 4. size[0]<<l, top) ; / 
TOFBWDUchar *)data. (char • )data. size[0] , sized] ) ; 

) 

void TestBac)cvard(data, size, oct.src) 

short *data; 

int size(2], oct_src; 

* inc oct. area=size(0] •si2e(l)«l; 

short vidth=size[01«l; . 

char •cop=area*<char -»da»:a. • l-*t»width+ 'char Mdata. 


SUBSTITUTE SHEET (RULE 26) 


WO 94/23385 


PCT/GBM/0W77 


- 783 - 


Engineering : KlicsCcde : CompPict : Backward . c 

icr ( ccr =oct_src- 1 ; cco^O.-ccc--) { 

icr.c cinc=2<<cct. cmc4 =cinc<<2 , 

nnc = sixe (0 J <<oct*l. rinc4 = rinc«2 ; /• col anc row increments in c 

rsscerSacicvafdi f char * J data, cine* . area- ( nnc<<! ), cine, left ) ; 
rase er Backward) : cnar • ) cat a. cinc4 , width- (cinc<<! ) , rinc . top) ; 


void 3acJcvard3 511 (data, size, oct_src) 

short 'data : 

mt size{2], cct_src; 

( 

inc oct. area=size [0] ♦size(U<<l; 

short width=size[0]<<l; 

char 'topsarea* (char •Jdata, * left swidth* ( char Mdaca; 

for ( oct=oct_src- 1 ; oet >0 ; oct - - } { 

long cinc=2<<oct. cinc4=cinc<<2 . 

rinc=3ize (0]<<oct*l, rinc4srinc<<2; /* col and row increments in t 


BACK3511 ( (char * )data . rinc4 . area- ( rinc«l) . cine, left) ; 
BACK3511 ( (char * ) data * cine 4 , width- i cinc<< 1 ) , rinc, top) ; 

} 

SACJOSllVf (char *)data. size (0]«3,area-< size(0) «2) . 4. left) ; 
BACX3511H( (char • ) data. 8 . vidth-4 , size (01 <<1 . top) ; 
/* T0PBWD< ( char *> data, (char •) data, size (lj , size [0] ) ; */ 

) 
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680X0 3511 Backward code 

Coeifs 19 5 3 
become 1 5 11 


seg 


macro 
BwdStarcO 


iaddrO . idAG. &dAH. idBH 


move . w 
move . w 
neg . w 
move . w 
acd.w 


UaddrO) , idAH 
idAG 

4dAG 

idAH. tdBH 
idBH, tdBH 


dAH= * ( shore 
dAC=v 
dAGs -dAG 
dBH=v 
dBH«v<<! 


; addrO 


endra 



macro 



* 

BwdStar 

1 1 iaddxl , 4addr0, 4dAG, idAH. &dBH 


move.w 

t&addrl) ,d0 

; vm* (short *>addxl 


move .w 

dO.dl 

; vs*v 


a3r .w 

• l.dl 

; V3=v»l 


add. w 

dl. tdBH 

; dflH— v>>1 


add.w 

d0 , 

; dAG+»v 


sub. w 

dO,&dAH 

; dAH-sV 


add.w 

d0,d0 

; V<<=1 


add.w 

dO.&dAG 

; dAG--2v 


add.w 

dO.dO 

• v<<ml 


sub. w 

dO.&dAH 

* dAH - = 4 v 


asr . w 

*1. tdBH 

• dBH>>»i 


move . w 

&dBH. (iaddrO) 

•(short * ) addrO=dBH 


endm 




macro 




BwdEven 

&addx 2 . &dAG , &dAH, &dBG , idBH 


move . w 

(&addr2) ,d0 

v«»f short *)addr2 


move. w 

dO.&dBH 

dBKxv 


move . w 

dO,tdBG 

dBG=v 


neg. w 

&dBG 

dBGa-v 


add.w 

dO.&dAH 

dAH*.v 


add.w 

dO,idAG 

dAG*av 


add.w 

d0,d0 

2v 


add.w 

d0,4dAH 

dAH+»v 


add.w 

d0,d0 

2v 

• 

add.w 

dO.&dAG 

dAH+sV 


endm 
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3wd0dd 

taddr3 . taddr2 , taddxi . tdAG. tdAH, &dBG. tdSK 




move . w 

{taddr3> . dO 

; v=* ! short * ) addr2 




add. w 

dO. t<lAH 

; dAH *:v 




add. w 

dO , tdAG 

.* dAG**v 




add. w 

dC , idSG 

; dBG*=v 




sub . w 

dO, tdBH 

; CBH- = - 





add. w 

dO.dO 

; 2v 





add. w 

dO, tdBG 

; dBC*=v 




add. w 

dO . dO 

; 4v 





sub. w 

dO. tdBH 

; dflH-=4v 




aar . w 

»2,&<3AH 

; dAH» = 

:2 




move . v 

tdAH, (taddrl) 

; * (shore • )addxl=dAH 




asr . w 

*2,tdAG 

; dAG»s 

:2 




move . w 

tdAC, (taddr2) 

; M short *>addr2*dAG 




endm 







macro 







3wdZnd2 

&addr2 . &dAG. tdAH, &d3H 





move.w 

(iaddr2) .dO 

■ vs» (short • ) addr2 




add.w 

dO.&dAH 

• dAH**v 




add.w 

dO . idAG 

■ dAG+=v 





add.w 

dO.dO 

, 2v 





move.w 

dO,fcdBH 

4BH*2v 




add.w 

dO.tdAH 

dAH+s2v 




add.w 

dO.dO 

4v 




* 

add.w 

dO,*<UG 

dAG*.4v 




endm 







macro 






* 

BwdEnd3 

&addx3 , &addr2 , iaddrl . tdAG . idAH , tdBH " 




move.w 

Uaddr3) ,40 

v«* (short *)addr3 




add.w 

dO,4dAH 

dAH+sv 





add.w 

40.&4AG 

dAG+=v 





lsl.w 

*3,d0 

8v 





sub.v 

dO.tdBH 

dBH-=8v 




asr.w 

*2.&dAH 

dAh»»2 




move . w 

tdAH, (taddrl) 

• (shor 

Z • ) addrl=dAH 




asr.w 

#2.tdAG 

dAC>>« 

2 




move . w 

tdAG, (taddr/2) 

•( short *)addr2rdAC 




asr.w 

•l,tdBH 

dBH>>= 

1 




move . w 

tdBH. ttaddr3) 

•(short *)addr3=dBH 




endm' 







macro 






* 

Bwd 

i base, tend, tine 






move a . 1 

tba»e,aO 


■ addrO=base 




move. 1 

t inc . dO 


• dO=inc 




asr. X 

#2,d0 


■ d0*inc»2 




movea . 1 

aO.aJ 


addr3»addr0 




suba.l 

d0,a3 


addx3-= ( inc>>2 ) 




movea . 1 

a3,*2 


addr2=addr3 


• 


suba.l 

d0,*2 


addr2-s ( inc>>2 ) 


- 


movea . 1 

a2.al 


addrl»addr2 




• 
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suta . 1 

dO.al 


; addr 1 - = ( inc>>2 > 

SwdScarcC 

a0.d4,d5,d*' 


■ 3 wdSc arc 0 1 addr C . dAG . dAH . d£H ) 

adda. 1 

i inc . a 1 


• addrl*=inc 

BwdSt art 1 

al.a0.d4.d5.d7 


• BwdSt arc 1 ( addr : . addr 0 . dAC . dAH . dBH ) 

adda . 1 

&mc,a2 


• addr2*=mc 

3wd£ven 

ai . d4 . d5 . d6 . d7 


BwdEven ( addr 2 . dAG , dAH . dBG . dBH ) 

adda . 1 

kmc . a j 


addr3+=inc 

3wdOdd 

a j , al . al , d4 , d5 , d6 

d7 

BwdOdd ( addr 3 . addr 2 , addr 1 . dAG , dAH . dBG 

adda . 1 

& inc . aO 


addrO*»inc 

BwdEven 

aC.d6,d7,d4,d5 


BwdEven ( addrO , dBG . dBH . dAG , dAH } 

adda. 1 

iinc . a I 


addrl*sinc 

BwdOdd 

al.a0,a3.d6.d7.d4 

d5 

BwdOdd { addr 1 , addr 0 . addr 2 , dBG , dBH . dAG 

adda . 1 

&inc,a2 


addr2*alnc 

cmpa . 1 

a2 , &end 


addr 2 < end 

bgc.s 

9do 


while 

Bwd£nd2 

a2.d4,d5.d7 


BwdEnd2 i addr 2 , dAG , dAH . dBH ) 

adda. 1 

iinc . a3 


addr3**inc 

BwdEnd3 

a3,a2,al,d4,d5.d7 


BwdEnd3 < addr 3 . addr 2 . addri . dAC , dAH . dB 

endm 





BazJt25i: 
?S 

daca 
inci 
endl 
inc 2 
end2 


FUNC 

RECORD 
DS.L 
L 
L 
L 
L 


OS 
05 
OS 
DS 
END* 

Link 
movem. 1 


EXPORT 
8 


a6, #0 

d4-d7/a3-a5,-u7) 


no local variables 
atore registers 


9 do 


move. 1 
move a . 1 
movea . 1 
adda . 1 
Bwd 
adda . 1 
crap a . 1 
blew 


PS.incl(a6) ,d3 
PS.data<a6) ,aS 
a5,a4 

PS. endl (a^) ,a4 
a5,a4,dL3 
?S.inc2(a6) ,a5 
PS. end2 <a6> ,a5 
3do 


inc « inc 1 
basesdata 
endabase " 

end* a endl 

Bwd (base, end, inc) 

base^sinc2 

end2>base 

for 


movem. 

unik 

rzs 


ta7) *.d4-d7/a3-a5 

a6 


restore registers 
remove locals 
return 


ENDFUNC 


macro 

Bwdscartvo 


iaddrO . 4 dAG . tdAH, 4 dBH 


move . 1 
move . 1 
neg.l 
move . 1 
add.l 


(iaddrO) , tdAH 
4 dAH . 4 dAG 
4 dAG 

&dAH, tdBH 
&dBH, &dBH 


dAH»*( shore *)addrO 

dAG«v 

dAG a -dAG 

dBH=V 

dBH*v«l 


endnt 


macro 

BwdSeartVl fiaddr 1 . taddrO , &dAG. &dAH , 4 dBH 


SUBSTITIITF SHFFT millF?m 


WO 94/23385 


PCT/GB94/006T7 


- 787 - 

Engineering: KlicsCode :Comp?ict : Backward. a 


rove . 1 
mcve . 1 
asr . 1 
add . I 
add. 1 
sub. 1 

□ UU . i. 

add. 1 
add. 1 
sub. 1 

(iaddrl i .'dO 
dO,dl 
* 1 . dl 
dl.&dBH 
dO . &dAC 
dO . &dAK 
dO,dQ 
dO , idAG 

dO,dO ; 
dO.idAH 

■/=• ( ahort -laddrl 

vssv 

V3=V> >1 

d3H*= v>>: 

dAC+=v 

dAH-=v 

v« = i 

dAG*=2v 

•/<<■! 

dAH-*4v 

asr . 1 
add. w 
asr . w 
move. 1 

* 1 , idBH 

&dBH.&dBH ; 

•l.&dBH 

&dBH. (iaddrO) 

dBH>>=! 

shift word back 
qBH>>=1 

•(shore *)addrO=dBH 

endm 



macro 
owubvtjnv 

&addr 2 , &dAC . idAH . 4d3G , tdBH 

move . 1 

move . i 

move . 1 

neg. 1 

add.l 

add.l 

add.l 

add.l 

add.l 

add.l 

(&addr2),d0 

dO . &dBH 

dO , 4dBG 

idBG 

dO . tdAH 

dO , 4dAG 

dO.dO 

dO.idAH 

dO.dO 

dO . tdAG 

v=M short -)addr2 

dBH*v 

dBGsv 

dBG.-v 

dAH*«v 

dAG+»v 

2v 

dAH*«v 

2v 

dAH-*v 

* 

sndrn 



macro 
BwdOddV 

4addr3 , &addr2 , &addrl . idAG, tdAH. tdBG.^dBH 

move . 1 

<&addr3).d0 

; vs*i short *Uddr3 

add. 1 
add.l 
add. 1 
sub.l 
add. 1 
add. 1 
add. 1 
sub.l 

dO . tdAH 
dO,tdAG 
dO,fcdBG 
dO , &<3BH 
dO,dO 
dO , LdBC 
dO.dO 
dO,&dBH 

; dAH*2V 
; dAG* ■ v 
; dBC**V 
; d£H-*V 

; 2v 

; dBG+ »V 
; 4v 

; dBH-a4V 

asr . 1 
IsL.w 
asr.w 
move . 1 
asr. 1 
lsl.w 
asr . v 
move . 1 

# 2 , &dAH 
#2,&dAH 

# 2 * tdAH 
idAH, (&addrl) 
#2 , fcdAG 
#2,&dAG 
*2,idAC 
idAG, <&addr2) 

; dAH»=2 

; shift word back 

; dAH»=2 

; -(shore Maddrl»dAH 
; dAG»>2 
; shift word back 
; dAG»«2 

; -(short -)addr2=dAG 

endm 



macro 
Bwd£ndV2 

&addr2 , &dAG * &dAH . &dBH 

m?v? 1 

( S»zddr2 l . dO 

. V t • ' sfcert "J *ddr2 
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acc . I 
add . i 

add. I 

add. 1 
add . 1 
add. I 


dO.idAH 
dO.idAC 
dO,dO 


dO. 

dO, 


, 4dBH 
, idAK 
dO.dO 
dC . idAG 


dAH ♦ = v 
dAG**v 
2v 

d3H=2v 

dAH*»2v 

4v 

dAG*=4v 


en dm 


macrc 
Bwd£ndV3 

move . 1 
add.l 
add. 1 
lsl.1 
sub. 1 
asr . 1 
Isl.w 
asr .w 
move . 1 
asr . 1 
lsl .w 
asr .w 
mov« . 1 
asr . 1 
lsl.w 
asr . w 
add.l 
move. 1 

endm 


& addr 3 . &addr2 , &addrl . 4dAG . &dAH . 4dBH 


<&addr3) . dO 

dO.&dAH 

dO.&dAG 

*3.dQ 

dO , &dBH 

•2,&dAH 

#2.&dAH 

#2,&dAH 

4 dAH , (iaddrli 

#2.&dAG 

#2.&dAG 

#2,&dAG 

&dAG. (4addr2i 

*l.£dBH' 

*l,«dBH 

#l,idBH 

4 dBH , fcdBH 

&dBH. (&addr3) 


v=m shore *)addr3 

dAH*xv 
dAG* » v 
8v 

dBH-=8v 
dAH>>=2 

shift word back 
dAH>>*2 

•(shore *»addrl=dAH 
dAC»»2 

shift word baclc 
dAG>>=2 

•(short ")addr2«dAC 
dBH»=l 

shift word back 

dAH>>»2 

dBH«»l 

•(short •jaddr3cdBH 


9do 


BwdV 

tbase , &end* & inc 

Tov«a . 1 

&bas«.aO 

move . 1 

& inc . dO 

asr . 1 

%2,d0 

Tovea. 1 

a0,a3 

suba . 1 

d0,a3 

movea. 1 

a3.a2 

auba . 1 

d0,a2 

movea. i 

a2.al 

suba . 1 

dO.al 

BwdStarcVO 

a0.d4.d5.d7 

adda . 1 

&inc.al 

BwdStarcVl 

al.a0,d4,d3.d7 

adda . 1 

&inc,a2 

BwdEvenV 

a2.d4,d5.d6.d7 

adda.l 

&inc,a3 

BwdoddV 

a3. *2.ai.d4,d5,d6,d7 

adda. 1 

tinc.aO 

BwdEvenV 

a0.d6.d7,d4.d5 

adda. I 

&inc,al 

BwdOddV 

al.aO.*3,d6,d7.d4,d5 

adda. 1 

&inc.a2 

cinpa . 1 

a2.«end 

bgz.s 

0do 

Bwd£ndV2 

a2.d4,d5.d7 

adia.l 



addrO*base 

dO=inc 

d0*inc>>2 

addri=addrO 

addr3-*( inc>>2) 

addr2aaddr3L 

addr2-= ( inc>>2» 

addrl-addr2 

addrl-* ( inc>>2) 

BwdStartO ( addrO , dAG. dAH. dBH) 

EwdStlrt U addr I , addrO . dAG, dAH , dBH ) 
addx2* = inc 

BvdEven ( addr 2 , dAG , dAH . dBG # dBH ) 

SvSodd I addr 3 . addr 2 , addri , dAG . dAH , dBG 
addr 0+ =inc ^ * 

BvdEven I addrO ( dBG . dBH. dAG, dAH > 

Bv^dladdrl . addrO , addr3 . dBG . dBH , dAG 

addr2**inc 

addr2<end 

while , . 

Bvd£nd2 ( addr 2 , dAG . dAH . dBH ) 
zddr2- = ir.c 
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EvdEndV3 

a3,a2.al,d4,d3 


endm 


Bac*3 511V FUNC 

EXPORT 

?S 

PXCCRD 

S 

data 

DS.L 


incl 

DS.L 

I 

endl 

DS.L 

I 

inc2 

DS.L 

\ 

shq2 

DS . L 


* 

ENDR 



i inx 



mo vein* 1 

d4-d*7/a3-a5. - u 


move . 1 

PS . incl (ao ) f gj 


movea . 1 

PS.data(a6) ,a5 

?do 

movea. 1 

a5,a4 


adda. 1 

PS. endl (a6) ,a4 


DWUV 

a5.a4,d3 


adda. 1 

PS. inc2 U6) . a5 


corpa . i 

PS.end2 (a6) ,a5 

• 

blew 

Qdo 


moveni. 1 

<a7) + .d4-dVa3- 


unlk 

a6 

* 

rts 



ENDFUNC 



macro 



BwdStartH 

iaddrR,&A,&C 


move. 1 

(taddrR)+,&A 


move. L 

fcA,dO 


move . 1 

&A.6C 


add.w 

&A,dO 


add.w 

dO.tA 


add.w 

&A.dO 


swap 

4A 


sub. 1 

dO.&A 


endra 



macro 


* 

BwdCycleH 

iaddrR, tadarW,* 


move . 1 

(taddxR)*,4B 


move. 1 

&B,dO 


add.l 

dO.dO 


move. 1 

dO,dl 


add.l 

&B,dO 


add.l 

d0,dl 


move . 1 

£B.d2 


move.w 

dl.d2 


move . w 

&B,dl 


move.w 

dO,*B 


move.w 

dl.dO 


swap 

&B 


swap 

d0 
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; BwdEr.d3 <addr3 . adcr3 . addr 1 , dAG . dAH . dB 


(a7i 


no local variables 
score registers 

inc=incl 

basesdaca 

end*base 

end+ =endl 

Bwdlbase, end, inc) 

base** inc2 

end2>base 

for 

retcore registers 
remove locals 
return 


lHlGaMlong *)addrR 

AalHIG, dO-lHIG 

AslHIG, dO.lHlG, C=lHlG 

A«1H1G, dO«lH2G, CalHIG 

A-1H3G, d0=lH2G. C=1H1G 

A*1H3G. d0=lH5C. CslHIG 

A-3GH1. dO»lH5G. C1H1G 

A^AAAA, dO«lH5G, C=1H1G 


lHlG-Mlong *)addrR 

B.1H1G, dOrlHlG 

8=1H1G, dO=2H2G 

B.1H1G, d0»2H2G, dl=2H2G 

B*1H1G. dO=3H3G, dl-2H2G 

BelHlG. d0»3H3G. dl=5H5G 

B-1H1C, dO*3H3G, dl=3H3G» d2=lHlG 

B*1H1C, d0-3H3G, dl«5H5C. d2-lH5C 

BalHIG, dO»3H3G, dl=5HIC, d2=lH5G 

B-1H3G, d0.3H3G, dl*5HlG, d2.1H3G 

B»1H3G. d0*3HlG, dl.SHlC, d2=lH5G 

B=3C1H, d0«3HlG, dl-5HlC, d2-lH5C 

B»3G1H, d0=lG3H. dl=5HlG. d2=lH5G 
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sub. 1 
add.l 
add. 1 

a s r . v 
move . w 
asr . 1 
move . - 
move . 1 


d2.&B 
dO.&A 
dl, &A 

*2. 5.A 
&A. 4C 
»2, iA 

iC. liaddrW) < 
&A. iC 


B=3G1H-IH5C 
A**1H3C 
A* n 5G IH 

A0>>=2 

C complete 

Al>>*2 

Mlong *)addrW=DD 
C=A1XX 


en dm 


macro 
BwdEndH 


iaddrR. iaddrtf . iA. &B. &C 



move . 1 

(iaddrR) ♦ , dO 


ITVOV6 . W 

dO, d2 


131 .W 

s 2 , d2 


neg . w 

ut 


swap 

uU 


add.w 

d0,d2 


move . 1 

dO.dl 


add.w 

dO.di 


add.w 

dl.dO 


add.w 

dO.dl 


swap 

dl 


add.l 

dO, &A 


add.l 

dl , £A 


aar . w 

#2 . 4A 


move.w 

&A. &C 


asr . 1 

*2. 4A 


move. 1 

&C, (iaddrwj ♦ 


move .v 

d2,&A 

• 

move . 1 

&A. (iaddrW) * 


endm 



macro 



BwdH 

&base.t«r.d.fcinc 


move* . 1 

&base, aO 


move a . 1 

aO,al 


BwdStartH 

aC.d3,d5 

iao 

BwdCyc leH 

a0.al.d3.d4.d5 


BwdCyc leH 

a0.al.d4.d3.d5 


cmpa.l 

aO. tend 


bgt.a 

Odo 


BwdEndH 

a0.al.d3,d4,dS 


endm 


Bacfc3511H FUMC 

EXPORT 

PS 

RECORD 

8 

data 

DS.L 


incl 

DS.L 


end! 

DS.L 


inc2 

DS.L 


end2 

DS.L 



ENDR 



lin* 



lHlGr* (long 
d2 = lG 
d2 = 4G 
d2=-4G 
dO=lGlH 
d2*-lH 
dOsiGlH 
dO=lGlH 


• ) addrR 


dlalClH 
dl=lG2H 


dO=lG3H. dl=lG2H 
dO=lC3H. dl*lCSH 


dO«lG3H, 
A**1G3H 
A**5H1G 


dl=5HlG 


Al>>«2 

C complete 

A0»*2 

•(long Maddrw*C 
A.D1D2 

•(long Maddr*J«A 


addrR* base 

addrWsaddrR 

BwdStart (addrR. A. DDJ 

BwdCyc let addrR. addrw. A.B.C) 

BwdCyc le ( addrR. addrW. B . A. C ) 

addx2<end 

while 

BwdEnd ( addrR . addrW. A, B . DD) 


: no l^rel variables 
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movero . 1 

d4-d7/a3-aS. -<a7) 

score registers 

move . i 
move a . 1 
move a . 1 
add a . 1 
BwdH 
adda. 1 
rmpa . 1 
blew 

PS .data (a6 ) , a5 

dj, di 

PS.endl <a6) .a4 
a5, a4 ,d3 
PS.inc2 (a6) . a5 
PS.end2 la6) ,a5 
edo 

ir*c- inc 1 
basesdaca 

end+=endl 

Bwd ( base . end , inc ) 

base*=mc2 

end2>base 

for 

movem. 1 

unlk 

res 

(a7)*,d4-d7/a3-a5 
a6 

restore registers 
remove locals 
return 

ZMDFUNC 
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• 2> Copyright 1993 KLICS Limited 
Ail ngnts reserved. 

written by: Adrian Lewis 


Full still/video Knovlcs-Lewia Image KlicsEncodc System utilising MVS propert: 
and Celt a- tree coding 

Recoded and re- rat ional ised (Stand alone version) 


■induce 

* include 

* include 
•include 
■include 


<FixXath .h> 
•Bits3.h' 
•Klics.h' 
•KlicsHeader.h* 
■KlicsEncode . h" 


•include <Mach.h> 

/• If bool true the negate value •/ 

•define negif (bool. value) < (bool )?-( value) : (value) i 

■define abs(value) negif (value<0 , value) 

extem void HaarFoxvard* I ; 
extern void Daub4Forwardl ) ; 

/* Use the bit level file macros (Bits2.h) 
buf .use; •/ 

/• Huffman encode a block */ 
fdefine Huf £EncLev( lev. buf ) \ 

HuffEncode<lev(0] ,buf ) ; \ 

Huf f Encode (lev [1] ,buf) ; \ 

Huf fEncoda<lev(2] ,buf ) ; \ 

HuffEncode(levC3) .buf ) ; 

/• fixed length encode block of integers */ 
-define IntEncLev< lev. lpf.bits . buf ) \ 

lnt£ncode(lev[0] . lpf.bits.buf ) ; \ 

IntEncodedevtl] , lpf .bits, buf ) ; \ 

Inc Encode* lev (2 J . Ipf .bits, buf ) ; \ 

intEncode ( lev ( 3 ] , lpf .bits, buf ) ; 

/• Define write a zero •/ 
^define TokanO \ 
buf_winc(buf ) ; 

/• Define write a one •/ 
•define Tokenl \ 

buf.settbuf ) ; buf_winc(buf ) ; 

/* Write block for data and update memory 

•define DoXf erladdr, pro. lev, dst. mode, cct.nmode. buf ) \ 

Huf fEncLevUev.buf ) ; \ 

PutData(addr,pro,dst) ; \ 

mode ( oct ) »oct »» 0 ?H_STOP : nmode ; 

'* function Mam?: Cuan^itie 
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Engineering: KlicsCode : ConpPic: :Klirs£nc . c 

description: H.261 style quantizer 
Arguments: new, old - image blocks 

pro, lev - returned values 

q - quantizing divisor 
Returns: lev is all zero, quantized data (pro) & level (lev) 


acolean Quantize (int new(4], int oldMJ, int proHl, int lev(4). shore q) 

int blk, haif_q=ll<cq)-l»l; 

for<blk=0;blk<4;blk**) { 

int datasnewtblkj-oldtblk], 
mag^levelaabs (data) >>q; 

mag_level=raag_ievel>13 5 ? 1 3 5 : mag_leve 1 ; 
lev [blk]*negif idata<0,mag_level) ; 

pro(blk)=old[blk]^negif (data<0, <mag_levei«q> ♦ (mag_level : =0?half_q: 0) ) ,- 

) 

retum(pro(0]==0 && pro(l]ssO && pro[2]==0 LI pro[3]«0); 

) 

void Quant izeLPF (int new {4}, int pro (4 J, int lev (4), short q) 

( 

int blk, half_q»(l«q}-l»l; 

for<blk«0;blk<4;blk+*) ( 
int data»new[blkl , 

mag_level=abs> (data) >>q; 

Iev(blkl=negi£(data<0.mag.levei) ; 
pro [blk ) = ( lev [blk] «q) +half_q; 

) 

) 

/* Function Name: GuessQuantize 

* Description; Estimate threshold quantiser value 

* Arguments: new, old - image blocks 

* q - q weighting factor 
Returns: estimated q_consc 

"/ 

float GuessQuantize { int new(4l.inL* old(4). float q) 

( 

int blk; 

float qt_ma*=0.0; 

£or(blk=0;blk<4;blk+-*> ( 

int i, data*abs(nev(blkl-old(blk) ) ; 

float qt; 

f or (is0;datal »0; data>>=l; 

if (i>0) i— : 

qt*< ( (3«ii-l)»l)/QJ 

qt.maxaqt jnax>qt ?qt - ma* : qt ; 

) 

return (qt_roax) ; 

} 

/* Function Name: intEncode 

* Description: Write a integer to bit file 

* Arguments: lav - integer to write new signed 
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bits - no of dies 

* / 

.oid I- c Encode ( int lev. m= mcs.Buf bu£) 

t 

Old version 
ir.c 

for ( i=bits-l ; :>s0; i-- » { 

if ( lev& i 1 << 1 1 » buf_aet (buf } ; 
buf ^vinc i buf ) ; 

} 

•/ 

/* New version 

inc i , raag»abs t lev) ; 
Boolean sign=lev<0. 

if (l<<bits-l <= mag) mag= ( l<<bits -1) - 1 ; 
ir (sign) buf _ set I buf ] ; 
buf _winc I buf ) ; 

for ( i*l<<bits-2; ii =0; i>>.l I i 
if (magii) buf_set Ibur ) ; 
buf_winc (buf ) ; 

)'/ 

/• Hardware campatable version: sign mag f lsb-xnsb) •/ 
inc l. mag=abs ( lev) ; 

Boolean sign»lev<0; 

if (l<<bics-l <= mag) mag=( l<<bits-U -1: 
if (sign) buf_aec (buf ) ; 
buf_winc (buf) ; 

for (ial; i!=l«toics-l;i«^l) ( 
if (magfci) buf_set (buf ) ; 
buf_winc(buf ) ; 

) 
) 

/• Function Nanw: HuffEnccdeSA 

* Description: Write a Huffman coded integer co bit file 

* Arguments: lev - integer value 
Returns: no of bits used 


void Huff Encode ( int lev. Buf buf) 

int level =abs( lev) ; 

if (level>l) buf _sec (buf i ; 
buf_wmc (buf ) ; 

if(level>2 t ) level==l) buf.set (buf ) ; 
buf.winc (buf ) ; 
if (levelixO) ( 

if (levcO) buf.set (buf ) ; 

buf_winc (buf ) ; 

if (level>2) ( 
int i ; 

for ( i*3 ; Klevel ; i*-* ) [ 
buf _winc ( buf ) ; 

) 

buf_set (buf ) ; 
buf_winc (buf) ; 

\ 
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) •/ 

/ * New version * / 

int. level*aJ23 Uev) . t; 

if (level ! - 0 > buf_set (buf > ; 
tuf_winc (bui »: 
if ( level :=0> ( 

if (lev<0) buf.set (buf ) ; 
buf.winc (buf ) ; 
if (level<8> ( 

whiie (l<level--> 

buf_vinc tbuf ) ; 
buf_set (buf 1 ; 
buf_winc(buf 1 ; 
} elae ( 

for <i=0;i<7; 

buf.wincibuf ) ; 
level -s8; 

for(i»l<<6; i!»0; i>>*l) ( 

if (levelii) buf_set(buf ) ; 
buf^winc Ibuf ) ; 

) 

J 

} 

) 

Function Name: KlicsEChannel 

* Description: Encode a channel of image 

• Arguments: src - source channel memory 

dst - destination memory land old for videos) 

octs. size - octaves of decomposition and image dimensions 

♦ normals - HVS weighted normals 

lpf_bits - no of bits for LPF integer (image coding only) 

•/ 

void KlicsEncrMshort 'arc. short *dst,int octs, int size[21,int thresh[5], int co: 

( int oct, mask, x. y. sub. tup, step.2«cct ? . blk[4J ; model*!. ™' no ' M 
int addr{4). nevl4], old(4], pro|4). l«v[41. zero{<0 = (0. 0. 0, 0> . 

Boolean nzflag, noflag, origin; ^ 1JB _- i *. r f 01 -1 - 

int bitmask»-l«kle->3<qh-preci3ion-icle->frmli.guanciierl0] i. 

Buf buf atkle->buf ; 

for(ya0;y<3ire(l] ;y*=step) 

rortx=0:x<size[0] ;x«-*9tep) 

£ortsub=0; sub<4 ;sub**) ( 

mode ( oct =oct s - 1 ) sbaae_roode .* 

if (sub«0) mode[oct=octs-l] I- M.LPF; 

raasks2<<oct ; 

do { . 
GetAddr ( addr, x,y , sub, oct , sire. mask) ; 
switch (mode [oct J ) < 
case M_VOID: 

Get Data (addr, old, dat ) ; 

if (Blk2ero(old)) mode ( oct ]»H_ST0F; 

else ( DoZero (addr. dst. mode, oct); } 

break; 
case M_SENDIK_STILL: 

GetData taddr, new, src) ; 

nz=Decide<nev>; nzf lag»n*<=thxesh (octs-oct 1 ; ^^rizer [octs -oct 1 ) 

if (niflag II Quantize(nev, zero, pro. lev. kle->frmh. quantizer [octs occw 
Ge^Dat & ! addr, old. 'jit ) ; 


ciiqcrrnnr cucct mm c oc\ 


WO 94/23385 


PCT/GB94/00677 


- 796 - 


^Engineering; KlicsCode :CompP:c: : Kl:cs£nc .c. 

if OlkZerotold) ) ( 
TokenO ; 

mode (oct ]=M_STOP; 
- else ( 

Tokenl: TOJcenl: 

DoZqzd (addr, dsc .mode, ocz ) ; 

• else ! 

Token!: TokenO: 

DoX f e r ( addr . pro . lev . ds t , mode ( oct, M_S£ND I H_ST ILL . bu C ) ; 

break : 
case M.SEND: 

GetData ( addr, new, arc) ; 
GetDat a ( addr, old.dst ) ; 

nz = Decide ( newi : nztlag=nz<*thresh(occs-occ ) ; 

if (Blk2ero<old) I ( , ^ , _ 

if tnsflag I I Quantize (new, zero, pro. lev, kle->f rmh. quant izer [occ s-o 
TokenO; 

mode (oct )=M_STQP; 
) else ( 

Tokenl; TokenO; 

DoXfer (addr. pro. lev, dsc . mode. oct.M„SENDIM_STILL. bu*. I ; 

) 

> eise ( 

int ot=Decide(old) . no«Decid»Delta (new, old) ; 

Boolean motions <nz+oz ) >>oct <= no; /• motion detection */ 

no=D«c ideDelta ( new, old) ; no f lag -no-- -compare ( occs -oct 1 ; 

origin=nz<»no; . M . , , . £y 

it ((.'noflag II notion) 66 inzflag) ( /• was inoflag 66 tnzfl 
if (Ouantize(new,origin?z«ro:old.pro,lev.kle->trrah.quancizer[o 

Tokenl; Tokenl; TokenO; 
Doze roi'addr. dsc, mod*, oct) ; 
} else { 

if (origin) t 

Tokenl; TokenO; „. T . 

Doxferc addr. pro, lev. dst. mode, oct ,M_SENDIM_STILL. buf ) ; 

} else { 

Tokenl; Tokenl; Tokenl; 

Doxfert addr. pro, lev. dst. node. occ . M_SEND. bu* ; ; 

) 

} 

1 Cl5 * 'if ((motion n origin! 66 nzflag) < /• was origin 66 nzfla 
Tokenl; Tokenl; TokenO; 
DoZero ( addr , ds t , mode . oct ) : 
) else < 
TokenO; 

mode [oct] =M_STOP; 

) 

) 

) 

break; 
case M.STILL: 

GetDaca (addr. new, src) ; 

nz»Decide(nev); nzf :ag=nz<*thre3h[octs-oct ) ; octs-oct ] ) 

if (nxflag II Quantize (new, aero, pro, lev, kle->£rmh. quantizer I oct s oct] > 

TokenO : 

mode (oct ) =M_STOF; 
} else ( 

Tokenl; w 

DcXf er ( addr . . lav , ds: . node . c zt . !!_STrL- . bu. : 
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} 

break; 
case M_L?FIM_STI,1: 

GetData ( addr. new, arc", ; 

Quant izeLFF( new. pro, lev. kle->f rmh.Quanciterl 0 ] ) ; 
veri£yData( lev(O) , bitmask. tmp] ; 
Veri fyData ( lev( 1 ] . bitmask. tmp) ; 
veri fyDaca ( lev [ 2 1 . bitmask, tmp) ; 
Veri fyData ■; levf 31 . Ditmasx. tmp) ; 

intEncLev ( lev, kle- >aeqh. precis ion- kle->f ruth, guantizert 0 ] , buf) ; 
?utData (addr, pro, dst ) ; 
rr,cde(OCC]=M.QUIT; 
break; 
case M_LPFIH_SEND: 

GetDaca (addr ,nev, arc! ; 
GetData (addr, old. dst) ; 

no=DecideDelta (new, old) ; nof lag*no<=compare (octs-oct 3 ; 
if (ncflag) ( 

TokenO; 
) else ( 

To ken 1 ; 

Quancize(new,old,pro.lev.kle->frmh.o^ianci2er[0]) ; . 
Huf t EncLev ( lev , buf ) ; 
Put Data (addr. pro, dst ) ; 

) 

tnodetoct]=M„OUIT,- 
break; 

) 

swi tcht mode [ oct ] ) { 

case M_STOP: * 

ScopCouncers (mode.oct ,mask,blk.x,y, occs) ; 

break; 
case K.QUIT: 

break; 
default: 

DownCouncers (mode, oct. mask, blk) ; 
break; 

) 

) while ( mode [ oct 1 !=M_QUm ; 

) 

) 

void KlicsEnctfVf short •arc, short *dst,inr octa.int size{2].int thresh[5], inc c 

{ inc oct mask, x, y, X. Y, sub. tmp. atep=4«octa, blk[4], modef4}, nz, no 
int addx(4], nev{41, old{4], pro[4). lev(4). zero ( 4 J * ( 0 . 0 , 0 . 0 ) ; 

Boolean nzflag, noflag. origin; 

inc bicmaska-l«kle->»eqh.precision-kle->£rwh.<iuaJicizer [OJ -l; 
Buf buf*fikle->buf ; 

for(Y*Q;Y<size[l] ;Y*«step) 

for (X*0;X<size(0] ;X*=stepi 

for (y»Y;y<size[13 y<Y+5tep;y+»step»l ) 

£or<x»X;x<size(03 fit x<x>step;x+=step»l ) 

for (sub=0;sub<4;sub+*) ( 

mode ( oct *oct a - 1 ) =bas« jnode ; 

if (9ub=a0) mode (oct »oct 3-1) i= M.LPF; 

mask=2<<oct ; 

Get Addr (addr, x,y, auto, oct, si2e, mask) ; 
swi cch (model oct ] ) < 
case M_VOID: 

GetData (addr. old. dst) ; 
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i* (BUZeroold) ) frodeioc: ] =m_STCP: 
else ( DoZerotaddx .dsc^de, occ : ; ) 
break; 
case M_SENDIM_STI*uL: 

GecDaca i addr. new, src) ; 

n: = Oec ide ( new) ; nz f lag=nz<=chresh [0" s -oct J : 

:£ (nzflag m Quantize (new. zero. pro. lev, kle-> trrtfi. quancizer (octs-occ ] ) 
GetData i addr . old, dst i ; 
if (BUZero(old) I I 
TokenO; 

mode [oct ] *M_STOP; 
} else { 

Tokenl; Tokenl; 

DoZerof addr . dsc , mode, oct ; ; 

) 

} else ( 

Tokenl; TokenO; ^ _ 

DoXf er t addr . pro. lev. ds- . mode, occ . M_SEND IM.STZLL. but ) ; 

) 

break; 
case M.SEND: 

GetData I addr, new. src) ; 
GetData taddr, old, dst) ; 

nz = Dec ide i new) ; nzf lag=m<=thresh f octs-oct ] : 

" £ 'if^nzflag II Quantize (new, zero, pro, lev, kle->f rmh.quant.izer (octs~o 
TokenO; 

modeloctl =rt_STOP; 
} else ( 

Tokenl; TokenO; , . . 

Doxfer ( addr . pro , lev, dst . mode , oct . M_SEND I M.ST ±LL. but ) , 

) 

) else { % ... 

int oz=Decide!old) . no=DecideD#lca<nev, old) ; 
Boolean mot ion« (nz*oz ) »oct <» no; /• motion detection •/ 

no^DecideDelta inev.old) ; nof lag3no<=compare [octs-oct ) ; 
origin-nz<*no; _, , P 

if' Uinoflag II motion) inzflag) { /• was inoflag W .nzfl 

if <Quai..-.ize<new.origin?zero:old.pro, lev. kle->frtnh. quantize, [o 
Tokenl; Tokenl; TokenO; 
DoZeroiaddr. dst, mode, oct ) ; 
} else ( 

if (origin) ! 

Tokenl; TokenO; . f u.,*\ 

DcXf er addr . pr 0 . lev , dst . mode . oct . M.SEND I M.STILL. buf ) ; 

) else ( 

Tokenl; Tokenl; Tokenl; 

DoXfer( addr. pro, lev , dst , mode . oct , M_ SEND, out ) ; 

} 

) 

* 0l " 'if ((notion U origin) « niflag) i /• was origin fc& nzf It, 
Tokenl; Tokenl; TokenO; 
DoZero ( addr , dst , mode . oct ) ; 
} else ( 

TokenO : 

mode [ oct ) »M_STOP ; 

) 

> 

} 

break; 
C3S9 K_ STILL : 
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Ge* Data (addr. new. "cj ; 

nz»Decide < new) ; nzf lag»n2<«cr.resh f oct s-oct 1 : 

if (nrflag II Quantize (new. zero .pro . lev. )cle->frmh. quantizer tocc 3 -occ ] 
ToKenO ; 

irvode [ oct ) aM.STOP; 
} else ( 
TOcenl ; 

DoXf er (dddr. pro. lev, dat .mode , oct, M_STILL, but) ; 

> 

break; 
case M_LPF 1 M_STILL: 

GetData(addr, new, src) ; 

Quant i i e£-PF (new, pxo, lev, kle->frmh. quant uer [0] ) ; 
VerifyDatat levlO] ,bitmask. unp) ; 
verifyDatadevCl] ,bitmask, unp) ; 
VerityData(lev(2] , bitmask, tmp) ; 
verifyData{lev(3],bitmask.tnip>; 

IntEncbev(lev,kle->seqh.precision-kle->frmh.quancizer[0] ,buf); 
PutDataladdr, pro,dut) ; 
mode t oct )»H_QOIT; 
break; 
case M^LPFIH.SEND; 

GetDatataddr. new, src) ; 
GetData(addr, old, dat ) ; 

no=OecideDelta(new,old) ; nof lag=no< -compare locts-occ I ; 
if i nof lag) ( 

TokenO; 
} else ( 

Tokenl; m ^ fni . 

Quantiie(new,old,pro.lev,kle->frmh.quantiier[0] ) • 

Huf fEncLevtlev,buf ) ; 
PutDat a ( addr , pro, dst ) ; 

) 

mode (oct ]*h_QUIT; 
break; 

) 

switch (mode (oct ] ) ( 

C " e stopCounters<mode. oct, mask. blk, x. y, oct s) ; 

break; 
case M.QUIT: 

break; 
default: 

DownCounters (mode, oct , mask, dik; ; 
break ; 

) while ( mode [ oct 1 1=«-0UIT); 

} 

} 

^efin^^ 

Sderin! cjilq! Fix2Long ( X2FixTq* ( float ) HISTO/HISTO_DEt.TA ) I 


S^SiST "SSSm of tree to calculate W Quantizer value 

Ar«»: «c - ^S^S^JS^ old tor videos, „ 

oecs, site - octaves ot decorrpo.it ion and image dimensions 
norms - base HVS weighted normals 

Returns: calculates new quant 
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LookAheadi short *src. short «dsr.. float norms ( 5] 1 3 ! . KlicsE kle) 

^ t x. y. sub. index. si 2 e f 2 ] = (kle->s e qh. sequence.* ize (C 1 . kle-> 9 eqh. sec^en 

threshfHISTOI . quact [HISTO ] . target; 
xnt new(41. old(4). addr(4l. zero [ 4 ] = ( 0 , 0 . 0 . 0 ) ; 

tloac -jant; 

f or : index=0 ; index<HISTO; index** ) C 
thrashUndax] =0; 
quact I index] *0; 

I 

for (yaO;y<si£e(l] ;y*«2<<octs) 
for (x=0;x<sxze(0] ;x*=2<<octs) 
f or ( sub* i ; sub<4 ; sub** ) < 

float q_thresh; 

int nz. no, 02. blk; 

Boolean ozflag. origin, motion; 

GetAddr (addr.x,y.sub.oeta-l.size.l<<octsl ; 

Ce t Da t a ( addr . r.ew , sre ) ; 

Getoaca iaddr.oid.dsc) ; 

nz = Decide(new) ; 

oisDecide (old) ; 

no=DecideDelta(nev.old) ; 

ozflag=kle->encd. intra 11 BlkZero (old) ; 

or igin=nz<=no; 

motion* (nz*oz)»octs <» no? 

q_thresh»(f loat )nz/DecideDouble (norms 1 1 J I jJ ' ; 

if (ozflag II origin) { ^ . nfftn . 

float qt-CuessOuantizelnew.zero.normsiU 101 ) . 

q_threBh*Q_thre9h<qt ?q_thresh : qt ; 
* Cl float qt=Gue530uantize (new, old, norma 11) 101) ; 

OLthre3h«q.threflh<qt ?0-thxesh : qt ; 

if ^motion) { Mlf , h , 

qx*(f loat)no/DecideDouble< norms t II [2)> , 

q_thresh3Q_chxe5h<qt ?cuthxesh: qt ; 

J 

) 

index=q2i (o^thresh) ; 

index»index<0?0: index>HISTG-l?HlSTO- 1 : index: 
thresh (index)**; 

/* buffer mu3t be greater than bfp.in after this frame •/ 

/• buffer must be less than buf f_size*bfp_in / nr _ vbvte3; /. previous 

car^trkle->encd.bpf_out-kle->e^ P 

whiS" inde*<HISTO aft quact I index) / index>target ) index** ; 
quant»i2q<indaxi ; 

kle->«ncd.tmp_q«ant.(kle->encd.tmp T ^* nt *^5 n ^ 2 ' /. forward and reve 

kle->encd. tmp.quant.i2q( ( indax-q2i lkle->encd. cmp.quant) ) ) - / rorw 

jae->encd.prevQuact=cr-act \ index) / ( index«0?l : index) ; 
Function Name: BaseNormals 
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Description: Calculates base HVS weighted normals 

* Arguments: norms - storage for normals 
Returns: weighted normals 

* / 

/cid BaseNorTuals ( t Lcac norms [ 5 ] [ 3 ] , KlicsE kle) 

fleet base_normt3] ={ 1. 3. kle->encd. thresh. kle->encd. compare) ; 
int norm, oct : 

for (oct=0;oct<5;oct++> 

f or ( norm= 0 ; norm<3 ; norm** ) 

norma (oct ) (norm] "base^normfnorm] • kle->encd. base (oct ] • ( float ) 1 1«X1 

) 

/• Function Name: Normals 

* Description: Calculates HVS weighted normals 0 quant 
Arguments: norms - storage for normals 

* Returns: weighted normals and LPF bits 

void Normals (float base.norms (5] [3] . int thresh (3] . int compare (5] .KlicsE kle) 

i 

int oct. i. norm; 

for (oct30;oct<»kle->3«qh. octaves [0] ;oct+*t { 

norm*Fix2Long (X2Fix tbase_porms (oct ] [ 0 ] *kle->encd. tmp_quant ) ) ; 

norm* norm< 1 7 1 : norm; 

for(is0;0!a(norm*-3) 

norm»norm>>l ; 
switch(norm) { 
case 1: 

kle->frmh. quantizer (oct) »i; 
break; 

case 2: 

kle -> frmh . quant i zex ( oct 3» i ♦ 1 ; 

break; 
case 3: 
case 4: 

kle->frmh.quantizer(octl=i+2; 

threshtoct]=Fix2Long(X2Fix(DecideDouble(ba3« - normstoctl 11 J •kle->encd- tmp^q 
coirpare[oct)=Fix2Long<X2Fix(Deciderx^^ 

kle->f rmh.quanci2er(0]-kle->frtnh. quantizer [0] <3?3 : kle->f rmh.quantixer {0 ] ; 
/■ minimum 4 bits of quant for lpf dua to dynamic range problems / 

Boolean KlicsFlags (KlicsE kle) 

i 

Boolean skip* false ; 

kle->encd.touf fer-*kle->encd.bp<_in; 

kle->frmh.flags«0: 

if (kle->encd.buf fer<0) 

kle->encd.buf fer«0; 
if <kle->encd. intra) 

kle- >frrah. flags I* KFH.DITRA; 

° lB *if (skip.kle->«ncd.buf_sv && kle->encd.buxi ar>«kle-»encd.buf_size> 
kle->frmh. flags I* KFH.SKIF; 

r e turn < skip ) ; 
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Engineering: IC.csCode: CompPic- : KlicsEnc. - 


;unc; ; zn Name: K lie 5 Encode 

Description: Encode a zrajne frcm YUV « de j - rans i ormed image 

Arguir.encs: sre - source image (3) 

rise - transformed destination memory (and old for videos) 

or.g XL icsEncode 1 short •srcHl. shore *dst(3). KlicsE kle) 

£Ioat baae.norniafS) [3] ; 

int channel.. chresh(5). compare (5); 

Bu£ but=4kle->buf ; 

bu£_winit (buf ) 

if (KlicsFlagslkle) ) 

kle->frmh. lengchsO; 
else { 

tor (channel =0 ; channel <kle- >seqh. channels .-channel*-) { 

inc size (2 ) s{ kle->seqh. sequencers lze (0 ] » [ channel ==0?0 : kle->seqh. s 

kle°>seah. sequence_size( 1] >>{channel»»0?0 : kle->seqh. au. 
area=si2e(0) * sized ] . occs=kle->seqh. octaves ( channel ==0?0: 

switch { kle->seqh. wavelet ) { 
case WT_llaar: 

HaarForvardl arc (channel ) . size. octs) ; 

break; 
case V/T_Daufc»4 : 

Daub4ForVard(src (channel) , size.occs) ; 

break; 

} 

) 

BaseNormals <base_norma , kle/ ; 

if (kle->encd.auto_q &4 1 kle->encd. intra; 

LookAheadtsrc (0) ,d3t (0] .base.nonts. kle) ; 

else 

kle- >encd. tmp_qu»nt»kle->encd. quant ; 
Normals ( base^norms , thresh. compare. kle) ; 
ror( channel ■0;channel<kle-^se<jh. channels .-channel**) ( 

int si*e(2 J»{kl«->secjh.sequence_siiefO] >> (channel*aO?0 : kle->seqh. s 

kle->suqh. sequencers* ze [ X ) >> < channel = = 070 ; )cle->seqh. sub.sai 
octsakle->seqti.octaves t channel xs0?0: 1 ] ; 

if (kle->encd. incri) 

KLZERCHdst (channel) , size(0] • size Ul ) ; 
if (channel==(M KlicsSr.cY t src( channel ) , dsr [channel J , octs. size, thresh. c 
else KlicsEncUV(src (channel) . dst (channel) , octs. size . thresh, compare, kle 

} 

bi:f .flush (buf ) ; 

kle->f rmh. length«buf .size (buf ) ; 
kle->encd.buf f er*=kle->frmh. length; 
if ( i kle- >encd. intra) 

kle->encd.prevbytes=kle->f rmh. length; 

) 

retum(kle->tnnh. length) ; 
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Engineering: Kl lcsCode : CompPicc : KlicsHeader . h 


• 3 Copyright 1993 KLICS Limited 

* All rights reserved. 

written by: Adrian Lewis 


Sequence and frame headers for Klics -Encoded files 
Hign byte first 


:ypede£ struct ( 

unsigned short clescript ion_length; /* Fixed 


unsigned char 
) KlicsHeader; 


vers ion .number [2 ] ; /* Fixed 


Size of this or parent struc 
version and revision numbers 


cypedef struct ( 

KlicsHeader head; 

unsigned short sequence. s i ze [ 3 1 ; 


unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
J KlicsSeqHeader; 


channels; 
sub_ sample [2] ; 
wavelet; 
precision; 
octaves [2] ; 
reserved [3 J ; 


cypedef struct ( 

KlicsHeader head; 

unsigned long length; 

unsigned long frame _number; 

unsigned char flags; 

unsigned char quantizer 1 5] ; 

unsigned short reserved; 
} KlicsFraraa Header; 


/• Fixed 

/ • Source 

/• Source 

/• Source 

/* Source 

/• Source 

/• Source 

/* Fixed 


/* Fixed 

/* Calc 

/* Calc 

/* Calc 

/* Calc 

/• Fixed 


Size and version of this str 
Luminance dimensions and num 
Number- of channels: 3 - YUV, 
UV sub- sampling in X and Y d 
Wavelet used: 0 - Kaax* 1 - 
Bit precision for transform 
Number of octaves Y/UV iraaxij 
Reserved for future use •/ 


Size and version of this str 
Length of frame data (bytes) 
Prame number intended for se> 
Bitfield flags: 0 - frame sk 
Quantiser shift values (octav 
Reserved for future use •/ 


^define KFH_SKIP 
^define KFH_ INTRA 


0x1 
0x2 


Implementation notes : 

QuickTime Must have KlicsFrameKeader . length set to a valid number 
Sun Hust have KlicsSeqHeader in data stream 

Possible developments: 

KlicsFrameHeader .quantizer 

Currently contains shift rather than stsp-size 

Different values for UV and GH,HG,GC sub-bands are not currently suppo 
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Engineering: K 1 ^ csCods : y.L i rs Codec : :<i lcsEncode . r 


KlicsEncode resource file 


^include 'Types. r" 
finciude ' MPWTypes . r * 
•include 4 imageCodec. r 1 


Klics Compressor included into the applications resource file here 


•define kl icsCodecFonnatName "Klics* 
♦define kl icsCodecFormatType 'klic 


This structure defines the capabilities of the codec. Thare will 

probably be a tool for creating this resource* which measures the performance 

and capabilities of your codec. 


resource 'cdc:* (129. 'Klics Codeclnfo ■. locked) ( 

klicsCodecFormatNajna. /* 
1. /■ 
1. /* 
"klic. /• 
0. 

codecInfcDces32 I codeclnf oDoes 8 I codeclnf oDoesTemporal 
codeclnfoDepth24 I codeclnf oS«cra«nce Sensitive, /• 
100. /• 
100. /• 
0, /• 
0, /• 
0. /• 
0, 
32. 
32. 
C. 
0. 
0 

i ; 

resource * thr.g* (128, "Klics Compressor* , locked) C 
c omp r e s s o r C omp on e n t Type , 
kl lcsCodecf ormatType . 
" klic ' , 

codeclnf oDoes32 I codeclnf oDoes 8 I codeclnf oDoesTemporal , 
0, 

' cdec • , 
128. 
' STR 
128. 
' STR ' . 
129. 
* ICON • , 
128 

); 

resource ' STR ' (128) t 
•Klics Compress* 


name of the codec TYPE ( da 
version •/ 
revision V 

who made this codec */ 

/* depth and etc suppo 
which data xormacs do we un- 
compress accuracy (0*255) ( 
decompress accuracy (0-255) 
cnillisecs to compress 320x2 
millisecs to decompress 320. 
compression level (0-255) ( 


/• minimum height •/ 
/• minimum width */ 
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^ Engineering:Kl-csCode:Klics Codec : KlicsEnccde . r 


esource ' STR * (12?) f 

■wavelet -ranaform & mult iresoluc ion tree based coding scheme" 


cnocTiTMTc cucrr mm p 9fi\ 
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Engir.ee ring : Kl icsCoce : Ki ics Codec : Kl ics Decode . r 


/ * 

:<i lcsDeccde resource ::ie 


'include ■ Types. r* 
■include * MPVTypes . r 
■include ■ I.TuageCodec . r" 

/ * 

• Klics Compressor included into the applications resource file here 


•define klicsCodecForroacNarae "Klics* 
•define kl lCsCodecFormatType 'klic 


This structure defines the capabilities of the codec. There will 

probably be a cool for creating this resource, which measures che performance 

and capabilities of your codec. 


resource ' cdci* (129, 'Klics Codecinf o° . locked) { 

klicsCodecFormaeName, /• name of the codec TVPE ( da 

•_ t version •/ 

l] /• revision •/ 

•klic*. /* who made this codec */ 

codecinf oDoes32 I codecinf oDoes 16 I codecinf oDoes 8 I codecinf oDoesTempor a 1 1 codeclnfo 

0 . 

codecinf oDeptH24 I codecinf o5equenceS«naitiv«. /• which data formats do we un- 

100. conrpresa accuracy (0-255) ( 

100 ' /* decompress accuracy (0-255) 

0 ' /• millisecs to compress 320x2 

c ] /• millisecs to decompress 320 

/• cornprension level (0-255) ( 

c'. 

22, /* miniMjn height */ 

32* /• minimum width "/ 


resource * thng' (130. "Klics Decompressor* . locked) { 
deccmpressorConponentType. 
klicsCodecFormatType, 
' klic 1 , 

codecinf oDoes32 I codecinf oDoeslS I codecinf oDoesB I codecinf oDoesTerapor a 1 1 codeclnfo 

0, 

' cdec ' , 
128, 
' STR 
130. 
' STR ' , 
131. 
' ICON* , 
130 

); 


resource ' STR • '1301 { 


WO 94/23385 


PCT/GB94/00677 


- 807 - 

CLAIMS 

WE CLAIM: 

1. A method of transforming a sequence of input 
digital data values into a first sequence of transformed 
5 digital data values and of inverse transforming a second 
sequence of transformed digital data values into a sequence 
of output digital data values, said sequence of input 
digital data values comprising a boundary subsequence and a 
non-boundary subsequence, comprising the steps of: 
10 running a number of said input digital data 

values of said boundary subsequence through a low pass 
boundary forward transform perfect reconstruction 
digital filter and through a high pass boundary 
forward transform perfect reconstruction digital 
15 filter to produce a first subsequence of said first 

sequence of transformed digital data values, said 
first subsequence of said first sequence of 
transformed digital data values comprising interleaved 
low and high frequency transformed digital data 
20 values; 

running a number of said input digital data 
values of said non-boundary subsequence through a low 
pass non-boundary forward transform perfect 
reconstruction digital filter and also through a high 
25 pass non-boundary forward transform perfect 

reconstruction digital filter to produce a second 
subsequence of said first sequence of transformed 
digital data values, said second subsequence of said 
first sequence of transformed digital data values 
30 comprising interleaved low and high frequency 

transformed digital data values, said low pass 
boundary forward transform perfect reconstruction 
digital filter having a fewer number of coefficients 
than said low pass non-boundary forward transform 
3 5 perfect reconstruction digital filter, said high pass 

boundary forward transform perfect reconstruction 
digital filter having a fewer number of coefficients 
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than said high pass non-boundary forward transform 
perfect reconstruction digital filter; 

converting said first sequence of transformed 
digital data values into said second sequence of 
5 transformed digital data values, said second sequence 

of transformed digital data values comprising a first 
subsequence of said second sequence of transformed 
digital data values and a second subsequence of said 
second sequence of transformed digital data values; 

10 running a number of said first subsequence of 

said second sequence of transformed digital data 
values through an interleaved boundary inverse 
transform perfect reconstruction digital filter to 
produce at least one output digital data value; 

15 running a number of said second subsequence of 

said second sequence of transformed digital data 
values through a first interleaved non-boundary 
inverse transform perfect reconstruction digital 
filter to produce output digital data values; and 

20 running a number of said second subsequence of 

transformed digital data values through a second 
interleaved non-boundary inverse transform perfect 
reconstruction digital filter to produce output 
digital data values, said output digital data values 

25 produced by said interleaved boundary inverse 

transform perfect reconstruction digital filter, said 
first interleaved non-boundary inverse transform 
perfect reconstruction digital filter, and said second 
interleaved non-boundary inverse transform perfect 

30 reconstruction digital filter comprising a subsequence 

of said output digital data values of said sequence of 
output digital data values. 

2. The method of Claim 1, wherein said low pass 
boundary forward transform perfect reconstruction digital 
35 filter has X coefficients and wherein said low pass non- 
boundary forward transform perfect reconstruction digital 
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filter has Y coefficients, Y being greater than X, said X 
coefficients of said low pass boundary forward transform 
perfect reconstruction digital filter being chosen so that 
said low pass boundary forward transform perfect 
5 reconstruction digital filter outputs a transformed digital 
data value H 0 when the low pass boundary forward perfect 
transform reconstruction digital filter operates on input 
digital data values IDo-ID^! adjacent said boundary, said 
transformed digital data value H 0 being substantially equal 

10 to what the output of the low pass non-boundary forward 
transform perfect reconstruction digital filter would be 
were the low pass non-boundary forward perfect 
reconstruction digital filter to operate on ID 0 -ID X&1 as 
well as Y-X additional input digital data values outside 

15 said boundary, said additional input digital data values 
having preselected values. 

3. The method of Claim 2, wherein Y-X-l, wherein 
there is one additional input digital data value ID_ lt and 
wherein ID_2 is preselected to be substantially equal to 

20 ID 0 . 

4. The method of Claim 2, wherein Y-X=l, wherein 
there is one additional input digital data value ID_ 1# and 
wherein ID.j is preselected to be substantially equal to 
zero. 

25 5. The method of Claim 1, wherein said sequence of 

input digital data values is a sequence of digital data 
values associated with pixels of either a row or a column 
of a two dimensional image, said boundary of said sequence 
of input digital data values corresponding with either a 

30 start or an end of said row or said column. 

6. The method of Claim 1, wherein said sequence of 
input digital data values is a sequence of digital data 
values associated with an audio signal. 
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7. The method of Claim 1, wherein said low and high 
pass non- boundary forward transform perfect reconstruction 
digital filters are forward transform quasi-perfect 
reconstruction filters which have coefficients which 

5 approximate the coefficients of true forward transform 
perfect reconstruction filters. 

8. The method of Claim 1, wherein said low and high 
pass non-boundary forward transform perfect reconstruction 
digital filters are both four coefficient quasi-Daubechies 

10 filters the coefficients of which approximate the 

coefficients of true four coefficient Daubechies filters. 

9. The method of Claim 8, wherein one of said four 
coefficient quasi-Daubechies filters has the coefficients 
11/32, 19/32, 5/32 and 3/32 independent of sign. 

15 10. The method of Claim 1, wherein said low pass non- 

boundary forward transform perfect reconstruction digital 
filter is a four coefficient quasi-Daubechies filter H of 
the form: 

H n = aID 2n-l + bID 2n + cID 2n+l ~ dID 2n+2 

20 n being a positive integer, ID 0 -ID m being input digital data 
values, m being a positive integer, ID 0 being the first 
input digital data value in said sequence of input digital 
data values, and wherein said low pass boundary forward 
transform perfect reconstruction digital filter is a three 

25 coefficient digital filter of the form: 

H 0 = aID_ 2 + bID 0 + cID 1 - dID 2 

ID.2 being a predetermined input digital data value outside 
said boundary and having a preselected value. 

11. The method of Claim 10, wherein said high pass 
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non-boundary forward transform perfect reconstruction 
digital filter is a four coefficient quasi-Daubechies 
filter of the form: 

G n = dID 2n _ 1 + c!D 2n - bID 2n+1 + a ^D 2n+2 

5 n being a positive integer, and wherein said high pass 
boundary forward transform perfect reconstruction digital 
filter is a three coefficient digital filter of the form: 


G 0 = dID. 1 + cID 0 - bXD 2 + aID 2 
dID„ 1 having a preselected value. 

10 12. The method of Claim 11, wherein: a + b + c - d is 

substantially equal to 1, wherein a - b + c + d is 

substantially equal to 0, and wherein ac - bd is 

substantially equal to zero. 

13. The method of Claim 12 , wherein: a=ll/32, 
15 b=19/32, c=5/32 and d=3/32. 

14. The method of Claim 11, wherein said interleaved 
boundary inverse transform perfect reconstruction digital 
filter is a two coefficient digital filter of the form: 

OD 0 - 4(b-a)H 0 + 4(c-d)G 0 


2 0 wherein OD 0 is an output digital data value of 

said sequence of output digital data values, wherein G 0 is 
the output of said high pass boundary forward transform 
perfect reconstruction digital filter when the high pass 
boundary forward transform perfect reconstruction digital 

25 filter operates on input digital data values ID 0 , ID 2 and 
ID 2 adjacent said boundary, and wherein H 0 is the output of 
said low pass boundary forward transform perfect 
reconstruction digital filter when the low pass boundary 
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forward transform perfect reconstruction digital filter 
operates off input digital data values ID 0 , ID X and ID 2 
adjacent said boundary. 

15. The method of Claim 14, wherein one of said first 
5 and second interleaved non-boundary inverse transform 
perfect reconstruction digital filters is of the form: 

D 2n+1 = 2(cH n - bG n + aH n+1 -+ dG n+1 ) 

n being a non-negative integer, and wherein the other of 
said first and second interleaved non-boundary inverse 
10 perfect reconstruction digital filters is of the form: 

D 2n+ 2 = 2(-dH n + aG n + bH n+1 + cG n+1 ) 

n being a non-negative integer, wherein H n , G n , H n+1 and G n+1 
comprise a subsequence of said second sequence of 
transformed digital data values. 

15 16. The method of Claim 1, wherein said low pass non- 

boundary forward transform perfect reconstruction digital 
filter is a four coefficient quasi-Daubechies filter having 
the coefficients: 11/32, 19/32, 5/32 and -3/32, and wherein 
said high pass non-boundary forward transform perfect 

20 reconstruction digital filter is a four coefficient quasi- 
Daubechies filter having the coefficients: 3/32, 5/32, - 
19/32 and 11/32. 

17. The method of Claim 1, wherein said low and high 
pass non-boundary forward transform perfect reconstruction 
25 digital filters are chosen from the group consisting of: 
true six coefficient Daubechies filters and quasi- 
Daubechies filters, the coefficients of the quasi- 
Daubechies filters approximating the coefficients of true 
six coefficient Daubechies filters. 
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18. The method of Claim l, further comprising the 
steps of : 

encoding said first sequence of transformed 
digital data values into an encoded sequence; and 
5 decoding said encoded sequence of digital data 

values into said second sequence of transformed 
digital data values and supplying said second sequence 
of transformed digital data values to said interleaved 
boundary inverse transform perfect reconstruction 
10 digital filter, said first interleaved non-boundary 

inverse transform perfect reconstruction digital 
filter, and said second interleaved non-boundary 
inverse transform perfect reconstruction digital 
filter. 

15 19. The method of Claim 18, further comprising the 

step of : 

quantizing each of said digital data values in 
said first sequence of transformed values before said 
encoding step. 


20 20. The method of Claim 1, wherein each of said input 

digital data values of said sequence of input digital data 
values is stored in a separate memory location, and wherein 
some of said memory locations are overwritten in a sequence 
with said sequence of transformed digital data values as 

25 said digital data input values are transformed into said 
transformed digital data values . 

21. A method of transforming a sequence of input 
digital data values into a sequence of transformed digital 
data values, said sequence of input digital data values 
3 0 comprising a boundary subsequence and a non-boundary 
subsequence, comprising the steps of: 

running a number of said input digital data 
values of said boundary subsequence through a low pass 
boundary forward transform perfect reconstruction 
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digital filter and through a high pass boundary 
forward transform perfect reconstruction digital 
filter to produce a first subsequence of said sequence 
of transformed digital data values, said first 
5 subsequence of said sequence of transformed digital 

data values comprising interleaved low and high 
frequency transformed digital data values; and 

running a number of said input digital data 
values of said non-boundary subsequence through a low 

10 pass non-boundary forward transform perfect 

reconstruction digital filter and also through a high 
pass non-boundary forward transform perfect 
reconstruction digital filter to produce a second 
subsequence of said sequence of transformed digital 

15 data values, said second subsequence of said sequence 

of transformed digital data values comprising 
interleaved low and high frequency transformed digital 
data values, said low pass boundary forward transform 
perfect reconstruction digital filter having a fewer 

2 0 number of coefficients than said low pass non-boundary 

forward transform perfect reconstruction digital 
filter, said high pass boundary forward transform 
perfect reconstruction digital filter having a fewer 
number of coefficients than said high pass non- 
25 boundary forward transform perfect reconstruction 
digital filter. 

22. A method, comprising the steps of: 

generating a sub-band decomposition having a 
plurality of octaves, a first of said plurality of 

3 0 octaves comprising at least one first digital data 

value, a second of said plurality of octaves 
comprising at least one second digital data value; 

calculating a sum of the absolute values of said 
at least one first digital data value; 
3 5 determining if said at least one first digital 

data value is interesting using a first threshold 
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limit; 

calculating a sum of the absolute values of said 
at least one second digital data value; and 

determining if said at least one second digital 
5 data value is interesting using a second threshold 

limit. 

23. A method of traversing a tree decomposition, said 
tree decomposition comprising a plurality of transformed 
data values, each of said plurality of transformed data 

10 values having a unique address identified by coordinates X 
and Y, comprising the step of: 

calculating at least four transformed data value 
addresses by incrementing a count, the count 
comprising one bit Cl x in the X coordinate and one bit 
15 Cl y in the Y coordinate, to generate said at least 

four transformed data value addresses. 

24. A method, comprising the step of: 
determining an address of a transformed data value in 

a tree decomposition by shifting a value a number of times, 
20 said tree decomposition having a number of octaves, said 
transformed data value being in one of said octaves, said 
number of times being at least dependent upon said one 
octave, 

25. A method, comprising the step of: 

2 5 determining an address of a transformed data value in 

a tree decomposition by multiplying a value by a factor, 
said tree decomposition having a number of octaves, said 
transformed data value being in one of said octaves, said 
factor being at least dependent upon said one octave. 

30 26, A method, comprising the step of: 

determining an address of a transformed data value in 
a tree decomposition by shifting a value a number of times, 
said tree decomposition having a number of frequency sub- 
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bands, said transformed data value being in one of said 
frequency sub-bands, said number of times being at least 
dependent upon said frequency sub-band. 

27. A method, comprising the step of: 

5 determining an address of a transformed data value in 

a tree decomposition by performing a logical operation upon 
a value, said tree decomposition having a number of 
frequency sub-bands, said transformed data value being in 
one of said frequency sub-bands, said logical operation 
10 performed being at least dependent upon said one frequency 
sub-band. 

28. The method of Claim 27, wherein said logical 
operation is a bit-wise logical AND operation. 

29. A method for determining a low pass quasi-perfect 
15 reconstruction filter and a high pass quasi-perfect 

reconstruction filter from a wavelet function, said low 
pass quasi-perfect reconstruction filter having a plurality 
of coefficients, said high pass quasi-perfect 
reconstruction filter having a plurality of coefficients, 

20 comprising the steps of: 

determining a low pass wavelet digital filter and a 
high pass wavelet digital filter from said wavelet 
function, said low pass wavelet digital filter having a 
plurality of coefficients, said high pass wavelet digital 

25 filter having a plurality of coefficients; 

choosing the coefficients of said low pass quasi- 
perfect reconstruction digital filter to be fractions such 
that when a sequence of data values having values of 1 is 
processed by said low pass quasi-perfect reconstruction 

30 digital filter the output of said low pass quasi-perfect 
reconstruction digital filter is exactly a power of 2; and 

choosing the coefficients of the high pass quasi- 
perfect reconstruction digital filter to be fractions such 
that when a sequence of data values having values of 1 is 
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processed by said high pass quasi-perfect reconstruction 
diaital filter the output of said high pass quasi-perfect 
reconstruction digital filter is exactly 0, whereby each of 
the plurality of coefficients of said low pass quasi- 
5 perfect reconstruction digital filter is substantially 
identical to a corresponding one of said plurality of 
coefficients of said low pass wavelet digital filter, and 
whereby each of the plurality of coefficients of said high 
pass quasi-perfect reconstruction digital filter is 
10 substantially identical to a corresponding one of said 

plurality of coefficients of said high pass wavelet digital 
filter. 

30. A method of estimating a compression ratio of a 
number of original data values to a number of compressed 

15 data values at a value of a quality factor Q, comprising 
the steps of : 

examining a first block of transformed data values of 
a tree, said first block being one of a number of lowest 
frequency blocks of a high pass component sub-band , said 

20 tree being part of a sub-band decomposition; and 

determining a value of said quality factor Q at which 
said data values of said first block would be converted 
into compressed data values, and not determining a value of 
said quality factor Q at which any other block of data 

25 values of said tree would be converted into a number of 
compressed data values. 

31. The method of Claim 30, wherein said number of 
original data values represents a frame of an image. 

32. The method of Claim 31, further comprising the 
3 0 step of: 

determining a number of lowest frequency blocks of 
said high pass component sub-band which would be converted 
into compressed data values given a value of said quality 
factor Q. 
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33. A method of transforming a sequence of image data 
values, comprising the step of: 

filtering said sequence of image data values using a 
quasi-perfect reconstruction filter to generate a 
5 decomposition having a plurality of octaves, said quasi- 
perfect reconstruction filter having six coefficients. 

34. The method of Claim 33, wherein said six 
coefficients are selected from the group consisting of: 
30/128, 73/128, 41/128, 12/128, 7/128 and 3/128, 

10 irrespective of sign. 

35. A method of detecting motion in a tree 
decomposition, said tree decomposition comprising a 
plurality of octaves of blocks of data values, comprising 
the steps of: 

15 comparing data values of a first block in an octave 

with data values of a second block in said octave; and 

generating a token indicating motion based on said 
comparing. 

36. A method, comprising the steps of: 

20 generating a sub-band decomposition having a plurality 

of octaves, a first of said plurality of octaves comprising 
at least one first digital data value, a second of said 
plurality of octaves comprising at least one second digital 
data value; 

25 determining if said at least one first digital data 

value is interesting using a first threshold limit; and 

determining if said at least one second digital data 
value is interesting using a second threshold limit. 

37. A method, comprising the steps of: 

3 0 generating a sub-band decomposition of a first frame 

having a plurality of octaves, a first of said plurality of 
octaves comprising at least one first digital data value, a 
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second of said plurality of octaves comprising at least one 
second digital data value; 

generating a sub-band decomposition of a second frame 
having a plurality of octaves, a first of said plurality of 
5 octaves comprising at least one first digital data value, a 
second of said plurality of octaves comprising at least one 
second digital data value; 

comparing said first digital data value of said first 
frame with said first digital data value of said second 
10 frame using a first threshold compare; and 

comparing said second digital data value of said first 
frame with said second digital data value of said second 
frame using a second threshold compare. 

38. A method, comprising the steps of: 

15 reading a sequence of data values from a plurality of 

memory locations, each of said data values being stored in 
a separate one of said plurality of memory locations; and 

overwriting some of said memory locations in a 
sequence as said data values are transformed into a 

2 0 sequence of transformed data values of a sub-band 
decomposition. 

39. A method, comprising the steps of: 

performing a function on a plurality of data values of 
a new block to generate a first output value, said new 

25 block being a block of data values of a sub-band 
decomposition of a new frame; 

performing said function on a plurality of numbers to 
generate a second output value, each of said numbers 
substantially equalling a difference of a data value in 

30 said plurality of data values of said new block and a 
corresponding data value in a corresponding plurality of 
data values of an old block, said old block being a block 
of data values of a sub-band decomposition of an old frame; 
and 

35 generating a token if said first output value has a 
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predetermined relationship wirh respect to said second 
output valxre. 

40. The method of Claim 39, wherein said token is a 
SEND_STILL token. 

5 41. A method, comprising the steps of: 

performing a function on a plurality of data values of 
a new block to generate a corresponding plurality of output 
values, said new block being a block of data values of a 
sub-band decomposition ; 
10 comparing each of said plurality of output values with 

a predetermined number; and 

generating a token if substantially all of said output 
values have a predetermined relationship with respect to 
said predetermined number. 

15 42. The method of Claim 41, wherein said token is a 

VOID token. 

43. A method, comprising the steps of: 
subtracting each one of a plurality of data values of 
a new block with a corresponding one of a plurality of data 
20 values of a old block to generate a corresponding plurality 
of output values, said new block being a block of data 
values of a sub-band decomposition of a new frame, said old 
block being a block of data values of a sub-band 
decomposition of a old frame; 
25 comparing each of said plurality of output values with 

a predetermined number; and 

generating a token if substantially all of said output 
values have a predetermined relationship with respect to 
said predetermined number. 

30 44. The method of Claim 43, wherein said token is a 

VOID token. 


SUBSTITUTE SHEET (RULE 2G) 


WO 94/23385 


PCT/GB94/00677 


- 821 - 

45. A method, comprising the steps of: 
determining an absolute value for each of a plurality 

of data values of a block of a sub-band decomposition; 
determining a sum of said absolute values; and 
5 generating a token based on a comparison of said sum 

with a predetermined number. 

46. The method of Claim 45, wherein said token is a 
VOID token. 

47. A method, comprising the steps of: 

10 processing a sequence of first image data values using 

a low pass forward transform perfect reconstruction digital 
filter and a high pass forward transform perfect 
reconstruction digital filter to create a first sequence of 
transformed data values, said low pass forward transform 

15 perfect reconstruction digital filter and said high pass 
forward transform perfect reconstruction digital filter 
each having coefficients chosen from a first group of 
coefficients independent of sign; 

converting said first sequence of transformed data 

20 values into a second sequence of transformed data values; 
and 

using digital circuitry to process said second 
sequence of transformed data values using a low pass 
inverse transform perfect reconstruction digital filter and 

25 a high pass inverse transform perfect reconstruction 

digital filter into a sequence of second image data values, 
said low pass inverse transform perfect reconstruction 
digital filter and said high pass inverse transform perfect 
reconstruction digital filter each having coefficients 

30 chosen from a second group of coefficients independent of 
sign. 

48. The method of claim 47, wherein said digital 
circuitry used to process said second sequence of 
transformed data values is a digital computer having a 
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microprocessor. 

49. The method of claim 47, wherein at least one of 
the coefficients in said first group of coefficients is not 
contained in said second group of coefficients. 

5 50. The method of claim 47, wherein said first group 

of coefficients has a different number of coefficients than 
said second group of coefficients. 

51. The method of claim 50, wherein said sequence of 
first image data values is a sequence of chrominance data 

10 values. 

52. The method of claim 50, wherein said low pass 
forward transform perfect reconstruction digital filter and 
said high pass forward transform perfect reconstruction 
digital filter each have four coefficients, and wherein 

15 said low pass inverse transform perfect reconstruction 

digital filter and said high pass inverse transform perfect 
reconstruction digital filter each have two coefficients. 

53. The method of claim 52, wherein said sequence of 
first image data values is a sequence of chrominance data 

20 values. 

54. The method of claim 47, wherein each of said 
coefficients of said low pass inverse transform perfect 
reconstruction digital filter and said high pass inverse 
transform perfect reconstruction digital filter is selected 

25 from the group consisting of: 5/8, 3/8 and 1/8", independent 
of sign. 

55. The method of claim 47, wherein said converting 
step comprises the steps of: 

encoding said first sequence of transformed data 
3 0 values into a compressed data stream; and 
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decoding said compressed data stream into said second 
sequence transformed data values. 

56. A method comprising the step of using digital 
circuitry to process a sequence of image data values using 

5 a low pass forward transform perfect reconstruction digital 
filter and a high pass forward transform perfect 
reconstruction digital filter to generate a sub-band 
decomposition, said low pass forward transform perfect 
reconstruction digital filter and said high pass forward 
10 transform perfect reconstruction digital filter each having 
four coefficients, each of said four coefficients being 
selected from the group consisting of: 5/8, 3/8 and 1/8, 
independent of sign. 

57. The method of claim 56, wherein said digital 
15 circuitry comprises means for low pass forward transform 

perfect reconstruction digital filtering and for high pass 
forward transform perfect reconstruction digital filtering. 

58. A method comprising the step of using digital 
circuitry to process a sequence of transformed data values 

20 of a sub-band decomposition using an odd inverse transform 
perfect reconstruction digital filter and an even inverse 
transform perfect reconstruction digital filter, said odd 
inverse transform perfect reconstruction digital filter and 
said even inverse transform perfect reconstruction digital 

25 filter each having four coefficients, each of said four 
coefficients being selected from the group consisting of: 
5/8, 3/8 and 1/8, independent of sign. 

59. The method of claim 58, wherein said digital 
circuitry is a digital computer having a microprocessor. 

3 0 60. A method comprising the step of generating a 

compressed data stream indicative of a video sequence from 
a sub-band decomposition, said compressed data stream 
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comprising a first data value, a first token, a second data 
value, and a second token, said first token being 
indicative of a first encoding method used to encode said 
first data value, said second token being indicative of a 
5 second encoding method used to encode said second data 
value, said first token consisting of a first number of 
bits and said second token consisting of a second number of 
bits . 

61. The method of claim 60, wherein said first 

10 encoding method is taken from the group consisting of: SEND 
mode, STILL_SEND mode, VOID mode, and STOP mode. 

62. The method of claim 60, wherein said first token 
is a single bit token. 

63. A method, comprising the steps of: 

15 forward transforming image data values to generate a 

first sequence of transformed data values of a first sub- 
band decomposition, said first sub-band decomposing having 
a first number of octaves; 

converting said first sequence of transformed data 

20 values into a second sequence of transformed data values; 

using digital circuitry to inverse transforming said 
second sequence of transformed data values into a third 
sequence of transformed data values, said third sequence of 
transformed data values comprising a second sub-band 

25 decomposition having a second number of octaves, said 
second number of octaves being smaller than said first 
number of octaves, said second sub-band decomposition 
having a low pass component, said low pass component of 
said second sub-band decomposition comprising data values 

3 0 indicative of rows of data values of an image, said rows of 
said image extending in a first dimension, said image also 
having columns of said data values extending in a second 
dimension; 

expanding said low pass component in said first 
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dimension using interpolation to generate an interpolated 
low pass cOTtiponent ; and 

expanding said interpolated low pass component in said 
second dimension by replicating rows of said data values of 
5 said interpolated low pass component. 

64. The method of claim 63, wherein said digital 
circuitry is a digital computer having a microprocessor. 

65. The method of claim 63, wherein said converting 
step comprises the steps of: 

10 encoding said first sequence of transformed data 

values into a compressed data stream comprising tokens and 
encoded data values; and 

decoding said compressed data stream into said second 
sequence of transformed data values. 
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